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Foreword 


This is not a ‘how to use your machine’ book as we assume that the 
user will already have a working knowledge of the main commands 
on the Commodore 64 keyboard. The intention of this collection of 
programs is to help the young user to become more familiar with 
their computer, improve their knowledge and have fun at the same 
time. None of the programs is of great length as we are aware that 
younger users will want to see the results of their planning as soon 
as possible. 

Virtually all of the programs will have a ‘games’ element to 
encourage the user to beat the machine. In some programs the 
junior programmer will be typing in the answers to the questions 
which the machine will eventually ask. In order to remove the 
certainty of a correct answer however, the computer will be 
requested to make random choices from the information given. 

As can be seen from the contents list the programs cover a wide 
area of interest including mathematics, geography, grammar, 
weights and measures and music. 

The programs have been designed so that they can be adapted to 
include more complex questions and so increase the user’s ability. 



Introduction 


This collection of programs has been written for junior users to pit 
their wits and test their knowledge. 

We have designed these programs so you can learn how to use your 
Commodore 64 computer by typing in your own information. 
None of the programs is too long to input into your machine as the 
idea is to help you sharpen up your mind - not to turn you into a 
typist. 

Once the program is in the machine you will be able to begin 
answering the questions and improving your knowledge. The 
faster you respond the quicker the computer will ask you the next 
question. 

You will be surprised how quickly you will learn how to use your 
Commodore 64, and how soon you will want to move on to the next 
program. 

As soon as you know how to enter these programs - and beat the 
Commodore 64 - you will be able to change the content in the lists 
and make things even more difficult for yourself. 


Things to remember 

Your Commodore 64 works with it's own language called BASIC. 
If you try to ‘speak’ to your machine in another language then 
nothing will happen, except that you will get a nasty message which 
says ‘error in line’. 

Programming is not like writing an essay for class. Your teacher 
might let you off with a mild caution if you miss out a comma - your 
Commodore 64 will not. 

You have to follow, exactly, the ‘characters’ shown on the program 
listings in this book. If you miss a comma, or enter a dash by error. 
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then the program will not work. You cannot put in any other 
instruction and expect the machine to work. If you have typed in 
your program and the Commodore 64 will not 'run 1 as instructed, 
then you will have to check your 'list 1 against the book for 'bugs 1 . 
Check carefully before you decide to throw your machine out of 
the nearest window! 

We know that the programs listed in the book are 'bug free 1 
because, not only have we checked and double-checked them, we 
have reproduced them from our Commodore 64 using a 
mechanical printer. 

We did this because it makes things easier for you and also for our 
own printers when they produce our books. If you are really having 
trouble however you can always ask your parents. They should be 
able to help you. 


Cassette Storage 

Once you have gone through ‘inputting 1 your programs you can 
store them on cassette tapes for future use. 

Cassette tapes will take up some of your pocket money but they 
mean that you will always have quick access to your list of 
programs. 

Having your programs on tape also means that, when you have 
improved your programming skills, you will be able to rewrite the 
programs we have given you. 
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Counties 



A few years ago the Government changed the names of most of the 
counties in England, Wales and Scotland. Some people still call 
them by their old names so we have come up with this program to 
help you make sure you know the new names and where they are. 

Your computer knows where Gwent is - do you? 


Howto play 

The computer will draw an outline map for you and give you a list 
of ten county names to choose from. 


The computer will then choose, at random, an area for you to 
identify. A flashing sign will indicate the area in question. Type in 
your answer in upper case (capitals). 
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Tries and scores are shown on the screen. 

If you are wrong it will be a case of try, try again until you get it 
right. 


Programming Notes 

This program uses the same map drawing routine as ‘towns’ and 
‘compass'. See the introduction to ‘towns' before typing in 
‘counties’. The rows for county names are held in the data 
statements 10240 to 10390. If your county is not here, why not try 
and insert it's name and position. 


Program 


10 REM 

28 REM * % 

22 REM % COUNTIES # 


24 REM % # 

25 REM ############## 

27 DIM8X(IS),SV<16>,COUNTV*(16> 

30 AT*=CHR*<17):F0RT=1T06:AT*=AT*+AT*: HE 
XTT : AT*=CHR*(19)+AT* 

35 PQKE53280,S : P0KE53281,15:PRINTCHR*(14 


4) 


40 TR=0 : SC=0 
5 0 G 0 81J B3000 • G 0 8 U B7000 
60 F0RT=1T01S 

78 POKESP+21,0 : POKESP.■ SX(T) : P0KESP+1, SV( 
T) : P0KESP+21,1 

75 PRINTLEFT*(AT*,18)SPC(23)" 

II 


80 PRINTLEFT*(AT*,18 > SPC(23)CO*< T) 

90 F0RQ=1TO15:F0RDL=1T058:NEXTEL:P0KESP+ 
21,0:FORBL=1TO50 : NEXTDL:POKESP+21,1 : NEXT 
100 NEXTT 

110 R=INT < RNB(1> % 16) +1 
120 PRINTLEFT*(AT*,3)SPC(20)"SCORE:"SC 
130 PRINTLEFT*(AT*,3)SPC(30)"TRIES : "TR 
135 PRINTLEFT*(AT*,13)SPC(23)" 

ii 


140 PRINTLEFT*(AT*,10)SPC(23) 
TV" 


WHICH COUN 






12 Counties 


145 PR I NTLEFT* < AT$, 12) SF'C 


oo 

c,-«» 


it 


150 PRINTLEFT$<RT*,12)SPC< 23 )"IS TH IS ? " 
155 PRINTLEFT*(AT*,14 ) SPCC 23)" 

II 


157 POKESP,SX(R):POKESP+1, SV(R 
160 PR INTLEFT* < AT*,14)SPC < 23) 
165 IFASC<RNS*)<65 0RASC<ANS*): 
$=MIB*(ANS*,2):GOTO 165 
178 TR=TR+1 

180 IFRNS*=CO*(R)THENGOTO240 


IHPUT ANS* 
■90THEHRNS 


190 


200 GOSUE5000:PRINTLEFT*CRT*,12)SPC<22)" 
HO! THRT IS WRONG" 

210 FORDL= 1 TO 100 : POKESO+1, RND (1) -$256 = HEX 

TDL ; POKESO+1,0 

220 POKESO+1 , 0 ■ G US 11.85888 

230 GOTO120 

240 GOSUB5880:PRINTLEFT*(RT*,12)SPC <22)" 
CORRECT! " 

258 FORR=1T04 : FORE=1T02:FORC=1T05 ; FGRD=1 
T06:POKESO+l,R#B#C#D : NEXTD,C,E,fi 
260 SC=SC+1 

270 POKESO+1,0:OOSUB5808 
280 GOTO110 

5000 REM CLEAR PART OF THE SCREEN 

5810 F0RT=5T023:PRINTLEFT*<RT$,T)SPC<28) 

" ":NEKTT:RETURN 

7000 REM SET UP SPRITE 

7010 SP=53248 

7028 POKESP+21,0 

7830 FORT=0TO63 : P0KE832+T,0:NEXTT 
7840 P0KE832,96:P0KE835,243 = P0KE838,248 = 
P0KE841,96 

7058 POKE2840,13 : POKESP+21,1:POKESP+16.8 
: POKESP+39,9 

7060 FORT=1 TO 16: RERDSX (T ) , SV < T), COI !HTV* < 
T):NEXTT 

7878 REM SET UP SOUNDS 

7888- 80=54272: FORT=0TO28 : POKESO+-T>-0 : NEXT 

T 

7098 P0KES0+5,9 : P0KES0+6,240 : P0KES0+24,1 
5 : P0KES0+4,33 
7100 RETURN 

9000 REM DRAW MRP OF BRIAIN 
9085 PRINTCHR$(147) 
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9013 

FORT=1024T0 

9015 

FORTT=0T018 

9329 

READX 

9033 

P0KET+TT,X:| 

9043 

HEXTTT,T 

9058 

RETURN 


' O C' 

<- t rr a .-to on / 


cL.J'i-.. Ocl .■ OcL} it 

:>U1 

32.' 32 

126,32,254,1 

L 68, 

*“’9 , OO 

118,108,168, 

168 

:, 32,32,32 
124,1@8,160, 

160 


10000 DATA 32,32,32,32,32,32,32,32,252,9 

,“i ( qo pi^ qq t 03 ( qo t } oo ( pjp.' t oo 

10019 BATA32,32,32,32,32, 

60.236.32.32.32.32.32.32, 

10020 BRTR32,32,32,32,32, 

236.32.32.32, ~~ "" " 

10030 DATA32, 

,160,38,168,1 
10840 DATA32, 

,168,160,160,160,126,32,32,32,32,32 

16050 BRTR32,32,32,32,46,32,160,163,168, 

168.160.168.168.32.32.32.32.32.32 

10860 DATA32,32,32,32,32,188,188,160,168 
,160,168,168,126,32,32,32,32,32,32 
10878 BRTR32,32,32,32,32,32,245,160,168, 

168.168.128.126.32.32.32.32.32.32 

1@880 DATA32,32,32,32,32,126,244,118,160 
,168,160,168,252,32,32,32,32,32,32 
10098 BRTR32,32,32,32,32,32,126,254,168, 

160.160.160.160.97.32.32.32.32.32 

10188 BRTR32,32,32,32,32,32,32,168,168,1 

68.160.168.160.252.32.32.32.32.32 
18118 DATA32,32,32,32,32,32,32,126,119,2 

54.160.163.160.168.121.32.32.32.32 

10120 DRTR32,32,32,32,32,32,32,255,32,11 

8.160.163.160.168.160.123.32.32.32 

1©138 BRTR32,32,32,32,32,32,32,32,32,32, 

254.168.168.163.160.160.32.32.32 

10148 DATA32,32,32,32,32,32,32,32,32,32, 

160.160.160.160.160.223.32.32.32 

18150 BRTR32,32,32,32,32,32,32,126,248,2 

54.160.168.160.168.160.160.223.32.32 

10160 BRTR32,32,32,32,32,32,32,226,160,1 
63,168,168,168,160,163,163,252,93,123 
10178 HRTR32,32,32,32,32,32,32,32,168, 16 
8,160,i60,160,168,160,168,168,163,160 
10188 BRTR32,32,32,32,32,32,108,254,163, 
163,160,160,168,168,163,168,168,160,236 
18190 BATA32,32,32,32,32,124,236,251,163 
,163,160,168,163,163,160,168,168,160,32 
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18208 DRTR32, 32, 32,32,32,32,32,32,124,12 
0,160,160,168,160,168,192,132,38,123 
18218 DflTfl32,32,32,32,32,32,32,254,247,2 
54,160,168,168,160,160,168,168,168,126 
18220 DRTR32,32,32,32,32,32,188,160,168, 
160,160,168,160,128,233,128,226,32,32 
18230 DRTR32,32,32,32,32,254,239,251,236 
,32,32,99,32,32,32,32,32,32,32 
10240 HfiTfi96,175,"CLWVB" 


10258 DRTR73,235,"CORNWALL" 
18260 DRTR79,199, "DVFEB" 

10278 DRTR99,208, 11 GWENT" 


10 

280 

10 

290 

1 8 

308 

10 

319 

10 

320 

10330 

10 

340 

18 
1 Ci 

350 

J. *0 

10 

o o u 

378 


18380 

10390 


DATA129,222,"HfiMPSHIRE” 
DRTR143,158,"HUMBERSIDE" 
DRTR163,216,"KENT" 

DATA105,168,“MERSEVSIDE" 
DRTR165,186,"NORFOLK" 
DATA135,146,"YORKSHIRE" 
DATA116,116,"BORDERS" 
DRTR116,185,"FIFE 
DATA124,76,"GRAMPIAN" 
DRTR9S,68,"HIGHLRHD" 
DATR111,114,"LOTHIAN" 
DRTfll16,36,"TRYSIDE" 
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Village 



You have just been appointed the chief of a village of natives whose 
lives depend on their crops of wheat. If you manage the crops prop¬ 
erly then the village will prosper and the population will increase 
but should you make a mistake then people will starve, people will 
die and you will be attacked by an angry mob. 

By the way, your people need about 2 x /i bags of wheat each to sur¬ 
vive for a year. Give them less and they starve and they won't like 
that. If you give them 5 bags each they will be pleased and may for¬ 
give you for past mistakes. 

Look out as well for the rats which always attack your crops in the 
warehouse. The more you store, the greater will be the losses from 
rats. 
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How to play 

The screen will show you that you are in your first year as leader. 
You will begin with a certain population and a certain amount of 
wheat. There are symbols for people and sacks of wheat and each 
symbol represents ten units. The computer will ask you how much 
of your wheat you wish to sow. Remember to keep some back as it 
might be a bad harvest. 

The computer will then tell you how much wheat you have grown 
and you will be asked how much you wish to give your people. 

Try and survive ten years as leader. 

Program 

^ |7| p j£ [■ i'[ $ $ $ jrl>* & |l{l; iljf •&; $ $ ;l)r & 'ti $ jjj>’ 

£0 REM # VILLAGE * 

£2 REM # * 

£4 REM * # 

2 pi P P {’•'I ;)!> ;lj^ ;&• ’it \if ;.j> ji- jut \lr, $ $ & -A- ^ 

30 PQKE52.. 43: P0KE5S.. 43: CLR 
35 P0KE53281 0 : POKE53230,8 
48 RT$=CHR$( 17) FORT* 1T06 : RT$=A7$+AT$ : HE 
XTT : RT$=CHR$(19)+RT$ 

58 GOSUB7008 : PRINTCHR$(147):GOSUB10000 

130 SF=0 

140 POP-100 

150 WHT=250 

160 VR=T 

170 flNG=0 

180 RE=2.4 

190 GOSUBS08 

230 GOSUB1080 

210 REM # IS R GRAPHIC CHARACTER 
220 PRINTLEFT$(RT$,8)SPC(17)"###" 


238 

PRINTLEFT* 

(AT$. 

9) S 

pcas> n 

#■ # M 

248 

PRINTLEFT# 

(AT$. 

10) 

SPC ( 

15) 

11 JJ. JJ. 1 ! 

tf if 

258 

PRIHTLEFT$ 

(RT$. 

11 > 

SPCC 

15 ) 

"it #" 

268 

PRINTLEFT$ 

(RT$. 

12) 

SPCC 

15) 


278 

PRINTLEFT* 

(RT$; 

13) 

SPC( 

16) 

"# #" 

288 

PRINTLEFT* 

(81$; 

14) 

SPC C 

17) 

"###" 

298 

PRINTLEFT* 

(RT$; 

11) 

SPC c 

18) 

;CHR$<36> 


294 GOSUB300 
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296 

GOSUB330 

300 

PRINTLEFT* 

PULflTION: "CHR: 

306 

WHT--INT (WH 

310 

PRINTLEFT* 

ERT : 

"CHR$<5>;! 

3 ij 

PRINTLEFT* 

EAR ; 

"CHR$<5>;' 

322 

RETURN 


330 HV3=INT(RHDa)*3) + i 

332 IFHVS=1THENfi*="POOR" 

334 IFHVS=2THENfi$="FfiIR" 

335 I FHVS=3THENR$=" GOOD " 

333 M$=" THE WITCH-DOCTOR PREDICTS R 

"+fl$+" HARVEST”:GOSUB1100 
339 PRINTLEFT$(fiT$,21)SPC(0)" 


349 POKESO+1,25: P0KES0+4 33: FORTT®i 1020 : 
NEHTTT : P0KES0+4> 32 

341 PR I NTLEFT$ (RT$.. 21) SPC < 0) ; 

342 INPUT" HON HUGH SEED HILL VOU SOW 
"; SD$ 

344 I F'v'RL < SD$) < 1THENGGTG339 

345 SD=VflL<SD$) 

358 IFSIOWHT THEN M$=" : rOU DO HOT HAVE " + 
STR$(SD)+"BAGS":G0T03S5 

360 IFSD>POPTHEHM$=" THERE ARE NOT ENOUGH 
PEOPLE TO SON 

361 IFSD>POPTHENM$=M$+STR$ < SD > +" BAGS":G 
0T03S5 

362 00T0379 

3bO GusUB1ioy■uuTussy 
370 CRF'~INT<RND(1>*2#HVS#SD) 

372 WHT=WHT-SD 
374 GO3UB300:GOSUB1000 
376 FGRDL=1TO20O8 : HEHTDL 
388 fl$="V0UR CROP WAS "+STR$(CRP>+" BAGS 
OF WHEAT" : GOSUB1100 

384 IF CHVSO1 > AND (CRP< 1.5SSD > THEHM$=" EVE 


N +ITCH 

-DOCTORS CRN BE WRONG 

400 

WHT 

=WHT+CRP 

434 

bOb 

UB300 

405 

GOS 

UB i GOO 

407 

nnr 

r r-. i 

NTLEFT$<RT$,28)SPC(8) 

;; 

408 

PR I 

MTLEFT $ (AT$.. 20 ') SPC <0 ) 
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409 POKESO+1.. 30 : P0KES0+4, 33: FORTT= 1TO20 : 
NEXTTT:P0KESQ+4,32 

419 INPUT" HOW MUCH WHEAT WILL VOU GIVE 

TO VOUR PEOPLE ";ET$ 

411 IFVAL(ET$)<1THENGOTO408 

412 ET=VflL(ET$> 

413 IFET>WHTTHENM*="VOU DO NOT HAVE "+ST 
RfCET)+" BAGS!":OOSUB1100:PRINT:GOTO406 

414 IFET<PGP#AETHENM$=" VOUR PEOPLE 

ARE HUNGRt!":GOSUB1100 : SF=1 

416 IFET>P0P#AE#2THENM*=" VO!JR PEOPLE 
ARE HAPPV!":GOSUB1108 = ANG=AHG+1 

420 WHT=WHT-ET 
422 GOSUB308 
424 GOSUB1080 

430 FURJ=2dTu29 STEP2 
440 F0EK=5T018 

450 POKESO+1,20-K : P0KES0+4,33 : F0RTT=1T02 

0:NEXTTT : P0KES0+4,32 

460 PR I NTLEFT* <AT$, l<) SPC (J); CHR$ < 38) 

480 PR I NTLEFT* (RT$, K) SPC (J)" " 

49@ NEXTK 

500 FORDL=1TO50:NEXTDL 
510 NEXTJ 

512 RTS=INKRND<1> *WHT/4) 

514 M$="RATS ATE "+STR$(RTS)+" BAGS OF W 

HEAT":GOSUB1100 

516 WHT=WHT-RTS 

518 GOSUB330:GOSUB1888 

520 IFSF=0THENGOTO708 

530 BD= I NT (RND (IX. 5* < POPfcAE-ET >) +1 

534 IFDB>=POP THENDB=FOP-i 


548 M$=STR$<BB>+" OF VOUR PEOPLE HAVE BI 
ED OF STARVRTION!” : GOSUB1188 

544 FOP=POP-DD 
550 GO3UB303•GOSUB900 

560 M$=" VOUR PEOPLE ARE RNGRV!":GOS 
UB1100 

570 ANG=ANG+! 

588 IFANG=3THENM$="VOU HAVE LET TOO MAHV 
PEOPLE STARVE." 

585 IFANG=3THENM$=M$+" VOUR PEOPLE W 
ANT A NEW LEADER! ":GOSUB!180:GOTO870 
598 FORJ=i TO POP/IS 
600 IF. J y 1 i-j THE H U U1 06 8 8 
61@ PRINTLEFT*CAT*,9)SPC <J+2 V " 
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628 PR INTLEFT# (AT#, 8 > SFC < .J+2 ) CHR# (36) 

638 POKESO+1 .■ K+5 : P0KES0+4.. 33 : FORTT= 11028 
:NEXTTT:P0KES0+4,32 


648 

FQRJDL= 1T05 : NEXTBL 




650 

PRINTLEFT# < AT#,8) 

SPC( 

J+2) !: !i 


668 

PRINTLEFT#(AT#,9) 

SPC< 

J+2)CHR 

* (36) 

6 ( ”8 

F0RBL=1T018 : NEXTD 

L 



688 

NEXTJ 




698 

G0T0748 




708 

PC=INT(RNB(1) &HHT 

&. 5/ 

RE) 


719 

M#=STR#(PC)+" PEC 

Pi P 

JOINEB 

your vil 

LfiGE! ": G0SUE1100 




728 

POP-P0P+PC 




738 

GOSUB380 




748 

G0SUB988 




758 

SF=0 




768 

VR=VR+1 




778 

M$="ANOTHER VEAR 

HAS 

PASSED. 

”:003UE1 

180 





798 

ir VR~11iHEHOOT082 

9 



889 

G0T0294 




858 

PRINTLEFT#(AT#,17 

)SPC 

(8)"WEL 

L DONE! 

vou 

COMPLETED VOU 18 

VEAR 

S IN 

OFFICE. 11 

860 

PRINTLEFT#(AT#,20 

)SPC(8)" 

YOUR S 


CORE IS I NT < (POP+WHT/AE > * 10 > : GOTO 1158 

878 FORJ=POP/’ 1 @1012 

872 PR INTLEFT# < AT# , 3) SPO < J) CHR# ( 36 > 

874 F0RDL=iTG5 : NEXTBL 

876 PR I NTLEFT # ( AT#, 9) SFC (J)" " 

878 NEXTJ 

888 PRINTLEFT#<AT#,18 >SPO <13)CHR#<36 > 

881 PRINTLEFT# <AT#,18 >SPC(13)" " 

884 PR I NTLEFT# (AT# ,11) SPC (14) CHR# (36) 

885 FORBL=1TO18 : NEXTBL 

886 PR I NTLEFT# (AT#, 11) SPC (14)" " 

888 F0RJ=1T05 

898 PRINTLEFT#<AT#,11)SPC <15)CHR#(18);" 

ll 

094 prINTLEFT*<RT$.» 11)SPC(15);CHR*<36) 
896 NEXTJ 


898 GOTO1150 


9O0 

910 

930 

940 

950 


P*=CHR$(36 
F0RJ=9T015 
FORK-1TO10 
IFPOPCK#10 
PRINTLEFT* 


*) W -1 


(RT$.J)S 


■8THEMP* : 
C(K+2)■ i 


H ii 


p&>: i 


.. 1 , ! 


P* 
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952 IFPOP<K$i 0 +(J-9)$100THENGQTO9S0 

955 PCKESO+1,K+5 : P0KES0+4,33:FORTT=iTO20 

: NEXTTT: POKESO+4, 32 

957 FORTT=1TQ20 : NEXTTT 

960 NEXTK 

970 HEXTJ 

980 RETURN 

1000 P$=CHR$<37> 

1010 FOR.J=9T015 
1030 F0RK=1T01S 

1840 IFWHT<K#18+ < J-9)■# 100THENP$=" " 

1050 PRINTLEFT$<RT$,J;SPC<K+24>;CHR$<158 
>; P$ 

1052 IFWHTCK# 10+ (J-9)$ 180THEH0OTO1860 

1055 POKESO+l, K+10 = POKESO+4.. 17: F0RTT=1T0 

20 = NEXTTT = POKESO+4,16 

1068 NEXTK 

1070 HEXTJ 

1030 RETURN 

1100 PR I NTLEFTf < RT$, 19) SPC < 3) J 11$ 

1110 FORBL=1TO2000:NEXTBL 

•! -I i CD-.t-— » 


1114 SP$=SF ! $+SP$ 

1120 PRINTLEFT*(RT$,19)SPC <3);SP$ 

1139 RETURN 

1150 PR I NTLEFTf (RT$, 23) SPC < 3) 
i155 INPUT»PLRV RGRIN"; 9 $ 

1168 IFLEFT$(Q$,1}="H"THENEHB 
1170 PRINTCHRf(146 > 

1188 GOTO130 

7880 REM RERB IN GRRPHIC BRTR *** 

7828 PCKE56334,PEEK <56334)RNB254 

7830 POKE1,PEEK <1)RNB251 

7840 FORI=0TO511 : POKE12238+1, PEEK(53248+ 

1>:NEXTI 

7050 POKE1,PEEK(1)0R4:P0KE56334,PEEK< 563 
34)0R1 

7868 FORI=8TC4$8-1:RERBR:POKE12568+I,R:H 
EXT! 

7095 P0KE53272,<PEEK<53272)RNB240) +12 
7180 RETURN 

8808 BRTR _24,68,126,255,126,182,102,182 
8810 BRTR 24,24,68,98,24,36,36, 182 
8023 BRTR 0,8,68,68,68,68,68,3 
8038 BRTR 28,18,57,57,56,56,56,16 








Village 21 


10000 REM SET UP SOUNDS 
10010 90=54272 

10020 FORT=0TQ28: FOKESO+T , 0 : NEXT 
10030 POKESQ+1,20:R£M p tJCH 
13040 POKESO+5,9 : REM RTTACK/DECfiV 
10058 POKESO+S, 240: REM SUSTfl I N/’RELERSE 
10060 P0KES0+24,15 : REM VOLUME 
10070 POKESQ+4,16 : REM WAVEFORM 
10080 RETURN 




Multiplication and 



e 


SCORE: 


6406 25 * 210200 

286 X 56 ® 16016 

5879 X 16 » 94054 

a* 732296 

* 122656 
a 435113 

* 566726 
a 60192 



73 239.6 


67264.8 



The first thing you have to do before you begin to play this brain 
teaser is to put your calculators away in a cupboard and bring out 
your pencils and paper. This game is a test of your mental ability 
and agility. No cheating, now, by using any help. 


Howto play 

Your computer will begin by asking you if you wish to play multip¬ 
lication or division. 

Type M or D then press RETURN. 

You will then be given a simple multiplication question such as 
1436x26. 


Multiplication and Division 23 


If you are correct, you will hear a triumphant sound and you will 
see Correct in green. 

If you are wrong, you will hear a rather nasty noise and the screen 
will display the word WRONG in red. 

The program will run for a total of twenty sums and will then give 
your grand total of correct answers against attempts. 

If you wish to change from one type of sum to another you can wait 
until you have answered your twenty questions then press RUN. 


Program 


19 REM if if: if: if: if: if if: if: if: if: $ if if: if: % if: :f if ;f $ 

20 REM if: MULTIPLI ChTI ON * 

22 REM % RNP if 

24 REM * DIVISION # 

25 REM $ if: if: if if: if: :f: if: :f: if: if if if if if : .f: if if if f 

26 POKES2,48 : PQKE56,48 : CLR 

30 RT*=CHR$<17):foRT= 1TOS:RT$=RT$+RT$ : HE 
KTT •' fiT $=CHR$ (13) +AT $ 

35 G0SUB7000:GOSUBi0000 


POKE532S0.. 


3281 3 : PR I NTCh'Rf (1 


40 S 

;M=0 




50 S 

;C=0 




100 





110 

BRTR0, 24, 

07 2 

55.255..0.24,. 

0 

120 

DRTR0, 1 , 3 

7 6 .' 

140,216,112, 

o o 

130 

DATA195,1 

02. 

68,24,60,102 

, 195,129 

140 

P0KES0+4, 

17: 

FORT=1TO40 : N 

EXTT:PGKESQ+ 

4,16 





ISO 

PRINT" 


MULTIPLICATION OR DIVIS 

ION 

ll 




155 

■£ 

INPUT" 


M OR D < + 

RETURN) ";C 

160 

IFLEFT$(C 

$, 1 

) = "M" THEN'S# 

-"X" : GOTO i90 

170 

IFLEET#<0 

| 

sh ■! 

1 

>="D M THENS$= 

CHR$<35) : GOT 

U 1 
180 

GOTO150 




190 

PRINTLEFT$<fl 

T$,5>SPC<6>" 

ll 


195 

IFS$=CHR$ 

(35 

.) THt N G U T 0 2 6 0 








24 Multiplication and Division 


200 R1 = INT (RND(1)*9000) + i00 
210 R2=INT<RNDa>*100) + l 
220 F0KES0+4,17:FORT-1TO40:NENTT 
4, 16 

230 Cfi=Rl*R2 

240 PR INTLEFTT < RT$, 5) SRC (6) R1 !! J! 


P UK.E3U+ 


S$; Jl !i R 


250 GOTO310 

260 R1 = I NT (RND (1) * 100) -f \ 

270 R2= I NT (RND C 1) * 103) * i 
280 Cfi=Rl 

230 PR IHTLEFTT- (RT$, 5)SPC < 6) R1 *R2; " !i ; S$; 
i: 1 1 \ r2 !! = 11 ; 

308 PUKbSQ’M, 17 ; FORT= 17040 : NEXTT ; P0KES0+ 
4, 16 

310 INPUTfiNS 

315 PR INTLEFTJ (RT$, 7) SPC (6) ,! 

ii 

320 PR I NTLEFT* < RT $ .• 7 ) SPC (6) RHS ; 

330 SM=SM+1 

340 IFRHS=CRTHENGOT0380 

350 P0KES0+4,1?:FORT=1TO40 : NEXTT : POKESO+ 

4.. 16 

360 PRIHTCHR*(37);" 

364 PRIHTCfi 
370 GOT0410 

3S0 POKESU+130 * POKtSU+4.. 17 ■ hQRT—1TO1G0 ' 
NEXTT : P0KES0+4,16: POKESO+1 .■ 20 


390 

PRIHTCHR*< 

36) 



400 

SC=SC+ i 




410 

PRINT : PRIN 

T 



420 

IFSM=20THE 

NG0T046 

0 


430 

PR1NTLEFT* 

(AT*, 1) 

r- pf 

(5)"SUMS: "JSM 

440 

PRINTLEFT* 

(AT*; 1 > 

SPC 

(17)"SCORE: ";SC 

44 

PRINTLEFT* 

(AT*,2) 

SPC 

( 0 ) !! 

n 

.•1 .< r\ 
-f’i-O 

PRINTLEFT* 

( RT$, d) 

SPC 

(0)" 

450 

GOTO190 




460 

F0RDL=1T02 

50:HEX7BL 


4 r U 

F'RINTCHR*< 

146) 



480 

PRINTLEFT* 

(AT*,8) 

SPC 

(6) iM r'0U HAD "SC” 


CORRECT ANSWERS" 

490 PRINTLEFT* < AT*,18)SPC < 8)"OUT OF 20 Q 
UESTIONS." 

500 END 







Multiplication and Division 25 


700W RtM RhfiB iN hRRFHIC DfiTfi $$$ 

7020 P0KE56334.PEEK (56334)RND254 

7030 POKE1,PEEK <1)RHD25i 

7043 FORI=0TO511 : POKE12283+1, PEEK(53248+ 

I>:NEXTI 

7059 POKE 1.. PEEK< 1 > 0R4: P0KE56334, PEEK (563 
34)ORi 

706a FOR I—0TO23 • RERDR • POKE 12568+1 ,■ fi : NEXT 


7095 P0KE53272,(PEEK <53272 > RNB240) +12 
7100 RETURN 

10000 REN SET UP SOUNDS 


1 00 1 0 

30=54272 




10020 

FORT=0TO 


POKES 

Ih-T .i @ : HtX i 

10030 

POKES0+1 

1 20 

• REM 

PITCH 

10040 

POKES0+5 

J? 

; REM 

RTT RCK/DECRV 

10050 

•j lyi (vl lT lyl 

PuKEb‘U+6 

A *1 

0 : REM 

cr * nr-M 

3USTRIN/RELERS 

10070 

P U K E o Li + 4 

'-r.« i 

, 16 

•J * "CL! ! 

:REM 

NR'v'EFORM 

1 @080 

RETURN 









4 

Addition and 
Subtraction 



When you cover other sums programs in this book you will find 
that we recommend that you don’t use pencils, paper or calculators 
because you probably won’t have them the next time you are sent 
out to shop for your parents. It helps to be able to do your own 
sums in your head because it might save you having to go back to 
the shops because you didn’t have enough money the first time you 
went. 


Howto play 

We have made this game look just like it would on your school pap¬ 
ers. You even fill in the totals by putting the numbers in from right 
to left just like you do in your maths books. 

If you get a correct answer a little blue munchman will run across 
the screen and eat away the whole sum. 





Addition and Subtraction 27 


If you are wrong however the munchman will only eat away the 
incorrect answer and you will have to try again. 

Give your munchman a full stomach by getting as many correct as 
you can because the score board will show how many tries and how 
many mistakes you made. 


Program 


10 REM ************************ 

20 REM * ADDITION * 

22 REM * AND * 

24 REM * SUBTRACTION * 

25 REM ************************ 

27 P0KE5248: P0KE56,48: CLR: GOSUB7088 : 008 
UB10088 

30 RT$=CHR$'s 17>: F0RT=1T06: RT$=AT$+AT$ - HE 
XTT:RT$=CHR$<19)+RT$ 

35 POKE53280.. 4: P0KE53281,15 
40 SC=0 
58 SM=8 

60 P0KES0+4 > 17 : P0KES0+1,38 : F0RDL=1TO188: 
NEXTDL : P0KES0+1,0:P0KES0+4,16 
64 PRINTCHR$(147) 

168 fl=INT(RHD<1)*48880 > + 10808 
178 E=INT(RND(1> *48083 > +18886 
198 SN=1 

200 IFRND(1».48THENSN=-1 

204 IFSNC0 AND <A-BK 18080 THEN GOTO 1.68 

218 PRINTLEFT $C AT*,9 >SPC<16 >;A 

228 PRINTLEFT*<AT*,13>SPC(16 >;B 

238 PRINTLEFT*<AT*..11>SPC<17>j"-" 

248 PR I NTLEFT* ( AT*, 13 > SPC <17 >;-" 

258 IFSN60THENPRINTLEFT*<AT*, 9 > SPC C 23 >;" 




270 CA=R+B*SN 
283 SM=SM+1 
290 A*="" 

300 PRINTLEFT*<AT*,1>SPC <5 > j"SUMS: "; SM ; 
CHR*<157>;" " 

384 PRINTLEFT*<AT*,1>SPC(25 >;"SCORE: ";S 
C;CHR$<157>;" 

310 GETK* 






28 Addition and Subtraction 


3201FK$=""THENG0T0319 

336 IFK#>"9" OR KK"0" THEN G0T0318 

349 : 

344 FORD=1TO20 : NEX7B 

359 fi#=K#+R# 

354 PRINTLEFT#<FIT#,12)SPCC22-LEN <A#>);R# 

360 IFLENCA$)05 THEN OOTO 310 
370 IFVRL(AS)=CR THEN GOTO 480 

OO’d 

338 PR INTLEFT $ C AT#, 17) SPC C 14).;" TRV RGB IN 
! " 

400 F0RJ=127025 

410 PR I NTLEFT# C AT#, 12) SPC < J >; CHR# C 36) 

428 POKESO+1, J : P0KES0+4,129: FORBL--1TO100 

:NEXTBL:P0KES0+4,128 

449 PRINTLEFT# C RT#,12)SPC(J);" " 

458 NEN7J 

460 PRINTLEFT#CRT#;17)SPC<14);" 

1 ) 

478 OOTO2S0 
480 • 

499 PRINTLEFT#C RTS,17)SPC C15);"CORRECT!" 

500 SC=SC+1 

510 P0KES0+4;33 ; FORJ=3T013 
520 F0RK=12T025 

530 PRINTLEFT$C RT#,J)SPC C K);CHR#C 35) 

540 P0KES0+1 K$J/2 '■ P0KES0+4.. 33 : FORDL-1 TO 
50 : POKESO+4; 32 

550 PR I NTLEFT# C RTSJ) SPC C K )" " 

560 NEKTK 
570 NEXTJ 

580 PRINTLEFT#<RTS,17)SPCC15);" 


585 POKESO+4,16 : POKESO+1,9 


590 GOTO160 

7080 REM %W. PERU IN ORRPHIC BRTR ### 
7005 PRINTCHR$C147)" PLEASE WRIT 

R FEW MOMENTS!" 

7020 P0KE5S334,PEEK C 56334)RNB254 

7930 POKE1,PEEK C1)RNB251 

7040 FORI=0TO511 : POKE12288+1,PEEK C 53248+ 

I) : NEXTI 

7050 POKE1,PEEK C1)0R4:P0KE56334,PEEK C 563 
34)OR1 


7068 FOR I =0TO 1 5 = RERBR:POI 


; .r i 


L ir“«..«“T 

nc.A i 


i 




Addition and Subtraction 29 


7078 IiRTfi 60,126,219,255,189,195,126,68 
7880 DATA 60,126,219,255,195,189,126,63 
7895 PQKE53272,<PEEK<53272>RND240>+12 
7108 RETURN 

10000 REM SET UP SOUNDS 
10019 80=54272 

10820 F0RT=8T028:POKESO+T, 8 : HEKT 
10340 F'OKESCi+5,9 :REM ATTACK,'■'DECRY 
1@050 P0KES0+6,24:REM SUSTflIH/RELERSE 
10860 P0KES0+24,15 : REM VOLUME 
18070 POKESO+4,129 : REM WAVEFORM 
10083 RETURN 



5 


Sum Difference 



We thought about calling this game 'some difference’ as it isn't 
nearly as easy as it looks at first. 

You are being told by your computer that it is thinking of two 
numbers between 1 and 20. It will tell you the total sum and the 
difference between the two numbers. All you have to do is 
correctly guess the answer. 

Example: The sum of the numbers is 13 
The difference is 9 
What are the numbers? 

Answer 2 and 11 


Simple isn’t it? 


Addition and Subtraction 29 


7070 DATA 60,126,219,255,183,135,126 ,& 
7880 BATA 6@,126,219,255,195,189,126,6s 
7835 P0KE53272,<PEEK<53272>RND240>+12 
7108 RETURN 

10300 REM SET UP SOUNDS 
13010 80=54272 

18820 FQRT=0TO28 : POKESO+T,8:NEXT 
10840 F'OKESO+5,9 : REM RTTRCK/DECRV 
18050 POKESO+6,24:REM SUSTflIN/RELEASE 
10060 P0KES0+24,15 : REM VOLUME 
10070 P0KES0+4,129 : REM WAVEFORM 
10089 RETURN 



5 


Sum Difference 


SCORE: 0 



HI SCORE: 


SS TUO NUMBER 

THE SUM OP THE NUMBERS IS 27 
THE DIFFERENCE IS 3 





We thought about calling this game ‘some difference’ as it isn’t 
nearly as easy as it looks at first. 


You are being told by your computer that it is thinking of two 
numbers between 1 and 20. It will tell you the total sum and the 
difference between the two numbers. All you have to do is 
correctly guess the answer. 


Example: The sum of the numbers is 13 
The difference is 9 
What are the numbers? 
Answer 2 and 11 


Simple isn’t it? 


Sum Difference 31 


How to play 

Your computer will tell you the sum of the numbers it is thinking of 
and the difference and ask for your answers. 

After each number press RETURN. 

If you are correct the score increases on the top of the board. 

As you become better at this game the computer will move the 
range of numbers from 1 - 20 to 1 - 25 and so on. 

A wrong answer will end the game completely and you will be 
asked if you wish to compete again. High scores will be recorded on 
the screen to allow you to compete for the high score title. 


Programming Hints 

You can make the game tougher from the very beginning by 
increasing the value in line 50 so that the range is wider 
immediately. 


Program 


10 REM 

20 REM SUM DIFFERENCE # 

22 REM * % 

24 REM % * 

25 REM 

30 f)T$=CHR$ (17 >: F0RT= 1TOS: fiT$=flT$+fiT$: HE 
XT! ; RT$=CHR$<19)+RT % 

33 PGKE53280 , 6 • P0KE53281.. 9 
35 GOSUB10008 
40 HS=0 

59 MflX=20 

60 SC=8 

70 PRINTCHR$<147) 

80 PR I NTLEFT$ (RT$, 2) SPC <4) CHR$ < 144 > j" SCO 
RE= ";chr$<5)jsc 

90 PRINTLEFT$< RT$,2)SPC Q 9 > CHR$(144)j"HI 
SCORE : ".: CHR$ (5).: HS.: CHR$ (39) 

180 R1 = INT <RNB(1)#MflX) +1 






32 Sum Difference 


110 R2=INT<RND<l)#MfiX)+l 
120 IFR2>=R1THENGOTO100 
125 P0KES0+125 : P0KES0+4.. 17 : FORT* 1TQ30: H 
EXIT : POKESO+4, 16 

130 PR INTLEFT * < RT*,4) SPC < 2)" I AM THINK IH 
G OF TWO NUMBERS BETWEEN 1 AND" ; MAX 

133 FORBL=1TO5O0=NEXTDL 
135 POKESO+1,22:POKESO+4,17 = FORT*1TG30 : N 
EXTT:POKESO+4,16:PRINTCHR*<159) 

140 PR I NTLEFT * < RT*,7)SPC < 2);" THE SUM OF 
THE NUMBERS IS ";CHR*<5),’R1+R2 
143 FORBL=1TO50O:NEXTDL 
145 POKESO+1,29:POKESO+4,17:FORT*1TO30:N 
EXTT:POKESO+4,16 = PRINTCHR*<158) 

158 PRINTLEFT*<AT*,9)SPC(2)"THE DIFFEREN 
ce is ";chr*<5);ri~R2 
153 FORDL*1TO580:NEXTDL 
155 POKESO+1,25:POKESO+4,17:FORT*1TO30:N 
EXTT :.P0KES0+4,16: PRINTCHR* < 152) 

160 PR I NTLEFT * < AT*, 11) SPC <2) j : I NF'UT" WHfiT 
IS THE FIRST NUMBER’'UNI 
162 POKESO+1,10:POKESO+4,17:FORT*1TO30 : N 
EXTT: POKESO+4,16: PRINTCHR*<152) 

165 PR I NTLEFT* < AT* ,13) SPC (2); '• I NF’UT" WHRT 


TS 


FHE SECOND NUMBER";N2 


167 POKESO+1,10:POKESO+4,17:FORT*1TO30:N 

EXTT:POKESO+4,ig 

178 IFN1*N2THENG0T0190 

180 IF<<N1=R1)OR(N1=R2))AND(<N2=R1)OR(N2 

=R2))THENOOTO280 

198 FORDL*1T058:NEXTDL ; POKESO+4,33 
192 F0RDL=58T02STEP-2 : FORT*1T028 : POKESO+ 
1,T+DL:NEXTT 


196 FORDL*1TO500:NEXTDL : PRIHTCHR*(144) 
208 PR I NTLEFT* < FiT* ,16) SPC ( 2 ) CHR* < 144) J" T 
HE TWO NUMBERS WERE 

202 PR INTCHR* < 5)R1CHR* < 144);" RND"; CHR 
*<5)R2 : PRINTCHR$<5) 

210 PR I NT" " R1CHR* (144);" + "; CHR 



R2;CHR*<144);"=";CHR*< 
'RI NTCHR* C 5) 


;R1+R2 


nri t i it ii 

r r-. j.ri i 


;R2;CHRi 


44) J 


”Ri;CHR$a44); M - M ; CHR 
11 =; f:HR$ < 150 ) ; R1-R2 


PRINT 


238 PRINT 11 


VOUR SCORE IS ”;SC 




Sum Difference 33 


240 IFSC>H8THENHS=SC : PRINT" Fi NEW 

HIGH SCORE!" 

258 PRINTLEFT %\ RT$,24)SPC(11)CHR*<154);: 
1NPUT"PLRV RGRIH ";Q$ 

268 IFLEET*(Q*,1)="H"THENENB 
264 GOTO50 

289 PRINTLEFT*<RT*,i6)SPC <8);CHR*(156);" 
THRT IS CORRECT!" 

282 P0KES0+4.. 17 

285 FORDL=20TO69STEP2 ; FORT=1TO303TEP3 : PO 
KESO+1.T+BL : P0KE53289 > BL : HENTT 

290 NEXTBL:POKESQ+4;16 
2S5 FORBL=1TO580:NEXTBL 
390 SC=SC+1 

318 MRX=MRH+5 
320 GOTO70 

10808 REM SET UP SOUNDS 
18010 S0=54272 

10020 FORT=0TO28:POKESO+T, 0:NEXT 

10039 POKESO+1.20:rem pitch 

10040 P0KES0+5.9 :REM RTTRCK/BECRV 

10059 POKESO+6.240:REM SUSTRIN/RELERSE 
18068 P0KES0+24.15 : REM VOLUME 
10078 PQKES0+4,16 ; REM WRVEFORM 
10089 RETURN 
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Bar Chart 



If you are planning to keep a record of how tall you have grown, or 
the height of a plant, or the rainfall in your garden, or the 
temperature changes, or how much pocket money you have been 
spending on sweets, toys or even computer games then this is for 
you. 

The computer will draw you charts in six different colours so that 
you can lay one colour over another to show how much, or how 
little, change there has been since the last time you checked. 


Howto play 

Your computer will show you an upright (perpendicular) line and 
a base (horizontal) line and will ask you first to decide the values 
you wish to use. This means that you have to decide if you want the 
chart to rise two, five or even ten units at a time. 




Bar Chart 35 


You will be asked for the maximum value of the chart. You have 15 
items so you may choose whether to work on days, months or any 
period of your choice. For example, if the temperature on the first 
day had been 24 Centigrade then you type in 24, and for the next 
day, 22, and so on. At the end of two weeks you will have finished 
14 numbers and will see the high and low temperatures for the 
period covered. 


Program 


10 REM 

20 REM * * 

22 REM * BAR CHART' * 

24 REM * * 

25 REM 

30 ATT=C'HRT(17>:FOR7=1TOS:AT$=AT$+ATT : HE 
NTT : ATT=CHRT(ISO +ATT 
35 P0KE53281,2:P0KE53288,2 
40 PRIHTCHRT(147) 

50 : 

38 PRINT"WHAT IS VOUR MAXIMUM VALUE 

(MULTIPLES OF 28)”:IHPUTM 
94 IFMC20 THEN PRINTLEFTT(ATT,10)SPC<11) 
"TOO SMALL!":G0T098 

100 IFM>100THEN PPIHTLEFT $ (ATT,18)SPC(11 

)"T00 BIG: " ; 00T038 

182 INPUT"COLOUR( 1 TO IS >";C 

104 IFCC1 OR 015 THEN GOTO 162 

108 PRIHTCHRT(147) 

110 S®INT(M/20) 

116 P=1 

120 F0R.J=1T019 
124 IFS*J>9 THENP=0 

138 PRINTLEFTT<ATT,24-J> SPC <P);S*JCHR$<1 
57>;CHR:T(1S5) 

134 IFJ=3THENP=28 
140 NEXTJ 
14S N=2 

150 r0RJ=lT018 

154 N=N+2 : JT=STRT(J) 

155 PRINTLEFTT(ATT,23)SPC(N-1>;CHRT(175) 
* CHRJ^175) 

156 IFNC5THENPRINTLEFTT(ATT,23)SPC <N-1>1 
CHRT(108);CHRT(175) 



36 BarChart 


160 PRINTLEFT$(AT$,24)SPC(N);MID$<J$,2,1 
) > 

165 PR.IHTLEFT* ( AT*, 25) SPC (N ) i MI B* ( J$ ,3.1 


); 

170 NEXTJ 

180 PL$=CHR$ (i 8) +CHR$ ( 32 ) +CHR* (167) +CHR* 
(146) : PL=1 
186 H=3 

198 PR IHTLEFT* < BT$, 2) SPC (10) CHR* < 144 >J" 


195 PRIHTLEFT*(AT*,2)SPC(10); : INPUT"VALU 
E(OR END) "JV$ 


200 

I F'v'AL (V* ) =0THENGOTO3i 

00 

218 

VL=VAL(V$) 


223 

IFVL>M THENVL=M 


225 

P0KE646.C-1 


230 

FORJ-0TOVL/S 


240 

IFJ-CTHEHGOTO260 


250 

PRIHTLEFT*(AT *> 24-J): 

spc(H);pl$; 

£68 

NEXTJ 


270 

H=N+2 


280 

IFN>38THEMOOTO300 


290 

GOTO190 


3 y u 

PRIHTLEFT *(AT* j 2 ) SPC 

(18)CHR*(144) ; 11 

11 

305 

PRIHTLEFT *( AT* , 2)SPC 

( i 0 ) f : I NPUT 11 MU RE 

( V,' 

'N )";Q* 


316 

IFQ*0"V !: THEHEHIi 


•T; •"‘TPi 

PRIHTLEFT*(KT*,2 > SPC 

(1 3 ) .! UHk# (1 44 ) 11 


325 PRIHTLEFT*(flT*.'2)SPC(l@); : INPUT 11 COLO 
UR (1 Tu 1 b) “ i U 

333 I FC< 1 0RO16 THEN GOTO 323 

331 I FF'L-STHEHF'L^CHR* (18)+CHR* (32) +CHR* 
(167) +CHR* < 146) : F'L= 1 

332 IFPL=2THEHPL*=CHR*(18)+CHR*(157)+CHR 
*( 167)+CHR*( 146) • F'L-'3 

335 I FPL** 1THEHF'L*=CHR* (18) +CHR* (167) +CHR 

#(146):PL“2 

340 GOTO186 
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Masterbrain 



This is one of the most difficult programs in the book in our opinion 
as you have to really think about every move you make. 

Your computer will choose four coloured pegs and place them in 
four positions in its memory. 

You have to guess what the colours are, how many of each colour 
and in fact what order the computer has placed them. 

You could be sitting here for days so you had better get a biscuit 
and a drink before you start. 


Howto play 


At the beginning you will be asked your age as the game has 










38 Masterbrain 


different levels of difficulty. You could cheat to begin with and say 
you are only five years old - it might make things easier. 

The colours are as follows 

Red 

Cyan 

Purple 

Green 

You are asked for your first guess and you enter your choice and 
press RETURN. 

When you have entered your guesses the computer will show you a 
Black if you are in the right place and with the right coloured peg. 
If you are right with you colour guess but in the wrong column you 
will get a Cyan (blue) peg. If you are wrong with colour and column 
nothing will appear on the screen. 

Now you may know that your first guess of colours is half right you 
have to go on to find out which column the colours are really in. 

You could start by making all the keys 3 (red) and if the computer 
showed you a blank screen then you would know that it hadn’t used 
red and you could ignore that number in your next choice. You can 
go on trying this method but it takes a long time and it will mean 
that your score is pretty awful when it shows the number of moves 
you took, at the end of the game. 

If at any stage you want to give up, type ‘Q’ as your guess. 


Program 

10 REM * # * # * if' * * # * * $ # * $ * $ * * * * 

20 REM * MASTERBRAIN # 

22 REM * * 

24 REM #. * 

25 REM 

30 AT*=CHR*(17):FORT*1T06 : AT*=AT*+AT* : NE 
•<’,TT : AT*=CHR*(19)+AT* 

35 POKE53230,1 : P0KE532SU 1 
40 GM=0 : GOSUB10080 
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45 BEL*=CHR*(157 > +CHR*a 57 > +CHR*(32)+CHR 
*(32)+CHR*(157)+CHR*a57) 

50 WN=9 
60 TR=TR+1 
70 DIMS(4) 

80 BIML(4) 

85 PRINTCHR*(14S) 

90 INPUT"HOW OLD ARE VOU";AGE:F'RINTCHR*( 
146:' 

92 IFAGEC1QRAGE>18THENMAN=10 = GOTO100 
96 MAK=28-AGE 

100 PRINTLEFT*(AT*,6)SPG(3)"COLOURS:" 

110 PRINTLEFT*(AT*,8)SPC<3 > CHR*(28 > JCHR* 
(113).;chr$':32).; 

115 PRINT"RED (3)" 

120 PRINTLEFT*(AT*,10)SPC ( 3)CHR*(159 );CH 
R*(113);CHR*(32); 

125 F'RINT"CVAN (4)" 

130 PRINTLEFT*(AT*,12)SPC(3)CHR*(156);CH 
R*ai3>;CHR*(32); 

135 PRINT"PURPLE <5)" 

140 PRINTLEFT*<AT$;14)SPC(3)CHR*<38>;CHR 
*<113)JCH<3'2); 

145 PRINT"GREEN < 6 >" 

150 PR I NTLEFT* (AT*, 3 > SPC (20 >" r-r 

~ i 

155 PRINTLEFT*(AT*,4> SPC(20)"I GUESS ! 
ANSWER I" 

157 PR I NTLEFT* < AT*, 5 > SFC (20)" i-h 


160 F0RT=1T018 

170 PRINTLEFT*(AT*,5+T)SPC(20)" I 
I I" 

180 NEXTT 

190 PRINTLEFT*(AT*,23 >SPC(20 >" 1 - 

j_i» 

200 PRINTLEFT* < AT*,2)SPC <5 >"WINS: "}WN 
210 PRINTLEFT*(AT*,2)SPC < 23)"GRHES : "GM 
220 PRINTLEFT*(AT*,18 > SPC(0); 

240 TR=1 

260 F0RJ=1T04 

278 R < J) = INT <RND(1> *4)+3 

280 NEXTJ 

290 P0KES0+4,33 : FORT=1T048:NEXT:POKESO+4 

oo 

300 PRINTLEFT*(AT*,18>SPC(3)CHR*(144);"G 
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LESS NO. "TR"C K157);" " 

SO1 PRI NTLEFT # (AT*, 28 ) SRC < 3)" 


302 PR I HTLEFT# CRT# .■ 20) SRC (3 >) 

304 fifi$="" : GETfifl# 

305 I Ffifi$=CHR# < 20) fiHBLEN <fi$) < 1THEH304 

306 IFRfl$0"Q"RNBfifi#0CHR$< 13)RNDRfi$OCH 
R# ( 20)AND< flfi$<"3"QRfifl$>"6")THEN304 

307 IFRR#="Q" THENG0T0652 

308 I Ffifi$=CHR# <13) THEN314 

309 I FfiR#=CHR# < 20) THENPRI NTEEL# : R#=LEFT 

L-EhK m >-4) -GOTG304 

310 R#=fi$+fifi#:P0KE646,VRL< RR#)-1:PRIHIGH 
R# <113)CHR* < 32); : GOTO304 

314 IFLEN< R*) 04THENR#="": G0T0381 

316 IFfl#="Q" THENG0T0652 

317 PRINTLEFT#< RT#,5+TR)SPG < 22); 

320 FORN=1T04 

330 IFMIB*<fi*,N, 1»"6" 0RMIH*<R3LH.. 1 K"3 
"THEHGOTO310 

340 L < N > =VRL < MID* < fi* .■ H, 1)) 

345 PQKES4S,L<N>-1 

350 PRINTCHR#<113);CHR*< 32 >; 

360 NEXTN 

378 PR I NTLEFT# < RT*.. 5+TR ) SPG < 31) 1 
380 F0RH=1T04 
390 S<N)=R(H) 

400 NEXTN 
420 RD = 8•BL=0 
438 F0RJ-1TQ4 

440 IFL < J)=S < J) THEN BL=BL+1:S <J)=-1:L<J 
)=0 

450 NEXTJ 

456 F0RJ=1TG4 

458 IFL < J)=0THENGOTO490 

460 FQRK=1T04 

470 IFL < J)=S< K) THFNRD=RD+1:S< K> =-1 : L <J) 
= 0 

480 NEXTK 
490 NEXTJ 

500 IFBL=0THENGOTO540 
510 F0RJ=1T0BL 

520 PRINTCHR#<144);CHR#<1i3)jCHR#< 29); 
530 NEXTJ 

540 IFRB=0THENGOTO580 
550 FORJ=1TORD 
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560 PR INTCHR* (158)CHR$ (113): CHR$ (29); 

570 NEXTJ 

580 PRINT:PRINT 

590 IFBL=4THENGOTOS70 

600 TR=TR+1 

610 IFTROMRX THENGQTO290 

650 PRINTLEFT*<AT*,22)SPC(5); 

651 PRINT"OUT OF GUESSES!" 

652 PRINT:PRINT "THE COLOURS WERE: ":PRI 
NT 

654 F0RN=1T04 

656 P0KE646 .■ L (N): PR I NTCHR* (113); CHR* (32) 

658 NEHTN 

660 PRINT:PRINT 

664 ij0TU70y 

690 WN=WN+1 

692 MRX=MRX-1 

694 IFMRX<5THENMRX=5 

700 GM=GM+1 

705 PR INTLEFT* (AT*, 24 )SPC (15); CHR* (144) 
710 INPUT"PLRV AGAIN ";Q* 

720 PRINTCHR*(146) 

730 IFLEFT*(Q*,1)="N"THENGOTO750 
740 GOTO100 

750 PRINTLEFT*(AT*,8)SPC(6)"THANKS FOR T 
HE GAME!" 

760 END 

10800 REM SET UP SOUNDS 
10810 80=54272 

10820 FORT=0TO23 : POKESO+T,0:NEXT 
18030 P0KES0+1,20:REM PITCH 

10040: P0KES0+5 .■ 9 : KhM Al l ACKr'* l iJt.CAV 
10050 P0KES0+6,240:REM SUSTAIN/RELEASE 
18060 P0KES0+24 ..15: REM VOLUME 
10078 P0KES0+4.. 16 : REM WAVEFORM 
10080 RETURN 
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English/French 



U* H AT IS THE FRENCH WORD 
FOR TfSrIN 7 


CORRECT! 




Imagine you have gone on holiday with your family to France and 
your Mum and Dad can’t remember the French for an hotel. You 
just walk up behind them and say ‘It's an auberge. Dad’. 

They will probably be so surprised that you could knock them 
down with a pain (that’s French for a loaf of bread, but of course 
you will know that.) 


Howto play 

The computer will concentrate on nouns but you can change the 
program later to widen your knowledge. 

Always remember when answering in French to use le or la before 
your word. Your computer will not stop your entry but you should 
get into the habit of using the prefixes. 
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The game ends when you have twenty correct answers. 

Remember to use the RETURN key after your choice of word. 
You may be asked questions alternately from French to English 
then English to French. 


Programming Hints 

Some of the data we have used is very simple so you can change 
lines 600 to 790 to insert your own, or have someone else program, 
harder examples. 


Program 


10 REN ##*##############+### 

20 REM * ENGLISH * 

22 REM $ AND # 

24 REM # FRENCH # 

25 rem 

30 RT*=CHR$<17) : F0RT=1T06: RT$=RT$+fiT$ •' NE 
XTT : RT$=CHR$ (19)+RT$ 

35 POKE53280,6 : POKE53280,14=GOSUB18088 
48 SC=8 
53 QN=0 
70 DIME$C20) 

80 EIMF$<28) 

100 FORJ=1TO20 
110 RERBE$(J) 

120 RERBF$(J) 

130 NEXTJ 

135 PRINTCHR$(147) 

140 INPUT" WHAT IS VOUR NAME ";N* 
142 N$=LEFT$(N$,8) 

150 F0RDL=1TO1088:NEXTDL 
154 PRINTCHR*(147);CHR$(144) 

160 PRIMTLEFT$ < RT$ > 2)SPC(5);"SCORE : ";SC 
170 PRINTLEFT$< RT$,2)SPC(23)j"QUEST10N8 = 
"; QN 

188 R=INT <RND<1)*20) +1 
190 IFRNB(1)>„5THEH GOTO 338 
280 PRINTLEFT$(RT$;7)SPC(8);"WHAT IS THE 
FRENCH WORD"; 

282 PRINTLEFT$(RT$,8 > SPC(8);"FOR "J E$ <R > 

’MO II 

} l 
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£05 PR INTLEFT* (FiT* ..10; SRC (13 >; 

210 INF'UTR* 

220 QN=QN+1 

230 IFLEN(R*X15THEHfi*=R*+” ":GOTO 230 
240 IFLEFT* (fi*.. LEN (F* ( R)))=F*(R) THEN GO 
TO 280 

250 FORT=80TO8STEP-1:FORTT=1T03 ; POKESO+1 
,TT#T : NENTTT > T 

260 PRIMTLEFT* < RT*,13)SPC< 10) J"NO ";N*;" 
THE WORD IS" 

262 PR INTLEFT * < RT* ,.15) SPC (14); CHR* ( 28); F 
*<R) 

270 GOTO150 

280 FORT= 10TO100 : FORTT= 1T02: POKESO+1.. T*T 
T : NEXTTT > T : F’OKESO+1.. 0 
290 F'R I NTLEFT* (RT*,13)SPC(15)J"CORRECT!" 
300 80=80+ 1 

310 IFSC=20 THEN GOTO410 
320 GOTO150 

330 PRINTLEFT*(RT*,7)SPC(8);"WHRT IS THE 
ENGLISH WORD" 

332 PR I NTLEFT* ( RT*, 8) SPC: (8 >;" FOR " j F$ (R > 

•MO M 

335 PRINTLEFT*(RT*,10)SPC(13); 

340 INPUTfi* 

350 QN=QN+1 

360 IFLEN(R*)<10 THEN R*=fi*+" ":GOTO360 

370 ifleft*(r*,len(e*(.r)))=e*(R) then go 

TO 280 

380 FORT=209TO8STEP-1: POKESO+1, T ■' NEXTT 
398 PR I NTLEFT* (RT*, 13) SPC (10) j" NO "N*;" 
THE WORD IS " 

392 PR I NTLEFT* ( RT*, 15) SPC (15).: CHR* (28).: E 
*(R) 

408 GOTO158 

410 P0KE53281,8 

428 POKE53280,0 

430 PRIMTCHR*(147);CHR*(158) 

440 PR1NTLEFT*(RT*,8)SPC(6);"CONGRRTULRT 
IONS! YOU HAVE" 

458 PRINTLEFT*(RT*,12)SPC(6);" RNSWERED 
28 QUESTIONS" 

460 PRINTLEFT*(RT*,16)SPC(6);" CORR 

ECTLV. " 

478 : 

488 : 
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490 : 

500 F0RDL=1TQ1000 : NEXTDL 
510 P0KE53281,7 
520 POKE53280, 7 
530 PRINTCHRS<147) 

540 PRINICHES(144)= END 
600 DATfi"TABLE","LA TABLE" 

610 DATA"CHfiIR","LA CHAISE" 

629 BATA"DOOR","LA PORTE" 

630 DATA "HOUSE".. "LA MAISOM" 

648 DATA "DOG" .■ "LE CHIEN" 

650 DATA"CAT'L "LE CHAT" 

669 DATA"GARDEN","LE JflRDIN" 

670 DATA "COAT".. "LE MANTEAU" 

680 DATA "HAT",. "LE CHAPEAU" 

690 DATA"BICYCLE".. "LA BICYCLETTE" 

700 BATA"TRAIN", "LE TRAIN" 

718 DATA"STATION"/ 1 LA GARE" 

720 DATA" BREAD "/’LE PAIN" 

730 DATA"MILK","LE LAIT" 

740 BATA"CUP","LA TRSSE" 

750 DATA"APPLE","LA POMME" 

760 DATA"ROAD","LA RUE" 

770 DATA"MAP","LA CARTE" 

780 DATA"SEA","LA MER" 

790 DATA"BOAT","LE EATERU" 

10080 REM SET UP SOUNDS 
10010 S0=54272 

10020 FORT=0TO28:POKESO+T,0 = NEXT 
10840 P0KES0+5,9 :REM ATTACK/DECRY 
10050 P0KES0+6,240:REM SUSTAIN/RELEASE 
10068 P0KES0+24,15:rem VOLUME 
10070 POKESO+4,17 :REM WAVEFORM 
18080 RETURN 
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Fizz/Buzz 



HIGH SCORE: 0 


YOUR NEXT ANSWER? 3 
THAT SHOULD HAVE BEEN FI22 

VOUR SCORE IS 2 

A NEW HIGH SCORE! 




You might have played this at school with everyone in your class 
making a fool of themselves but now it is up to you alone to get it 
right or look silly. 

Every time a number can be divided by 3 you must press FIZZ and 
every time it can be divided by 5 you press BUZZ. Remember to 
press RETURN after each entry. 

Example: 1,2, FIZZ, 4, BUZZ, and so on. 


Howto play 

You type in the numbers and the FIZZES and BUZZES. 

If you make a mistake the computer will tell you what you have 
done wrong and will send you back to the beginning. 



Fizz/Buzz 47 


At the end your computer will thank you for the game. 


Programming Hints 


You can easily change the program for numbers other than 3 and 5 
if you find you are getting too good for the computer. Why not try 
5 and 7? 


Program 

18 REM 


12 REM * * 
14 REM * FIZZ BUZZ * 
16 REM $ & 
18 REM * $ 


20 REM 

21 GQSUE16000 : GOTO508 

22 PQKE53280,4: P0KE53281.. 3 

25 RT$=CHR$(17) : F0RT= 1T06 •' AT$=AT$+flT* ■ NE 
XTT:AT$=CHR$(19)+AT* 

30 HS=0 

40 C=1 : PRINTCHRf(147) 

60 PRINTLEFT*<RTf,2)SPC(5) i CHR$<31);"SCO 
RE:";C-l 

70 PR I NTLEFT* (AT*, 2) SPC < 22)CHR$ (31).: "HI 
GH SCORE:"HS 

90 PRINTLEFT $ CAT$,10)SPC < 8)" 

ll 

92 PRINTLEFT*(AT*,10)SPC <8);CHR*(144);"V 
OUR”;=IFC>1THENPRINT" NEXT"; 

95 INPUT" ANSWER";A$ 

100 P0KES0+1,20+C: POKESO+4.. 33: F0RT= 1TO30 
: NEXTT : F'OKESO+4 , 32 
102 IFA$=""THEN90 

104 IFLEFT$(A$,1)>"Z"THENPRINTCHR*(38); " 
USE CAPITAL LETTERS.'PLEASE." ; GOTO90 
110 IFA$="FIZZ" AND C/3=INTCC/3) AND C/5 
OINT(C/5) THEN 6OTO308 
120 IFA$="BUZZ" AND C/5=IHT(C/5) AND C/3 
OINT(C/3) THEN OOTO308 
130 IFA$="FIZZ BUZZ" AND C/3=INT(C/3) AN 
D C/5=INT(C/5) THEN GOTO300 
140 IFLEFT$(A$,1)>"9" OR LEFT*(FI*, DC'S" 
THEN GOTO 170 




48 Fizz/Buzz 


150 ANS=VAL(fi$) 

160 IF RM3=C AND C/3<>INT(C/3) AND C/5<> 
INT(C/5) THEN GOTO 300 
170 : 

180 PRINTCHRf<5);" THAT SHOULD-HAVE 

BEEN 

185 FORTT= 1TO40 : P0KES0+4 , 33 : FQRT=60-TTTQ 
30STEP-1:POKESO+1,T:NEKTT,TT:P0KES0+4,16 
130 IF 0/3OINT(C/3) RND C/50INT(C/5) T 
HEN PRINTCHR$(144);C; 

200 IF C/3= I NT ( C/3) THENPRI NTCHR$ (30);" 
FIZZ 

210 IFC/5=INT(C/5) THEN PRINT;CHR$(31);" 
BUZZ"; 

220 PR I NT: PR I NT: PR I NT: FORT* 1TO500 : 'NEXTT 
230 PRINT;CHR$(154);" VOUR SCORE 

t q n j 1 

234 PRINT:PRINT 

240 IF C-1>HS THENHS=C-l:PRINT" 

R NEW HIGH SCORE!" : PRINT:PRINTCHR$(144) 
250 INPUT" WOULD VOU LIKE TO F'LRV AGAIN 
(V/N)"; 

260 PRINTCHR$(147) 

273 IFLEETS(0$,1)="N"THEN GOTO780 
280 GOTO40 
300 REN 

310 PRINTLEFTS(RTS,15)SPC(16)AS" 

320 PRINT:PRINT 


330 C=C+1 
3401 GOTU60 

500 REM INSTRUCTIONS 
505 POKE53280.' 12 : P0KE53; 
510 PRINTCHR$(147) 

520 FORT =1TO188 : P0KES4S 


181,6 

J:PRINT;CHRS 


;"FIZZ BUZZ "; =NEXTT 

538 FORTT=1T028 ; P0KES0+4,17:F0RT=78T04@S 
TEP-2:POKESO+1,T:NEXTT,TT:P0KES0+4,16 
535 PRIHTCHRS(147);CHRS<146);CHRS(17); 
548 PRINT" FIZZ-BUZZ 

550 PRINT" - 

555 PRINTCHRS(144);CHRS(17); 

560 PRINT"IN THIS GAME VOU HAVE TO COUNT 
FROM 1 UPWARDS, EACH TINE ADDING "; 
570 PRINT"! TO THE LAST NUMBER. THE NOR 
E TINES THAT VOU CRN DO THIS, "; 




Fizz/Buzz 49 


580 PRINT "THE MORE POINTS 't'OU WILL SCORE 


590 PRINT;CHR$<17);" TO MAKE IT R BIT HR 
RBER, VOU RLSO HAVE TO BO THIS : - " 

600 PRINTCHR$<5);CHR$<17);" IF VOU CRN 
BIVIBE THE NUMBER BV "CHR$<144);"3"; 

605 PRINTCHR$<144);" THEN 

T't'PE ”;CHR$(158); "FIZZ" 

610 PRINTCHR$<5);CHR$<17);" IF VOU CRN 
BI VIBE THE NUMBER BV "CHR$< 144); "5"; 

615 F'RINTCHR$<5);" THEN T 

VPE "CHR$<158);"BUZZ" 

620 PRINTCHR$< 5);CHR$<17)" IF VOU CRN 

BIVIBE THE NUMBER BV 

622 PRIHTCHR$<144);"3 "CHR$<5);"RNB"CHR$ 
<144)"5"; 

625 PRINTCHR$<5);" THEN TVF'E "CHR$< 158) 
"FIZZ BUZZ" 

650 F'R I NTCHR$ <17);" . " CHRS < 18);" PRESS 
RNV KEV TO START THE GRME "CHR$<146) 

668 WflIT197,64 

670 GETfi$ : IFfi$=""THEN678 

675 POKESO+1, 25 : P0KES0+4,33 : FORT= 1T058: N 

EXTT: PQKESQ+4, 32 

680 G0T022 

700 F'RINTCHR$< 147) 

705 PRINTLEFT$<AT$,9)SPC<8)CHR*<2S);.CHR$ 
<18);" 

710 PRINTLEFT$< RT$,10)SPC < 8)CHR$<18);" T 
HANKS FOR THE GAME! " 

715 PRINTLEFT$< ATS,11)SPC < 8)CHR*<18);" 

" = END 

10000 REM SET UP SOUNDS 
10010 80=54272 

10020 FORT=0TO28:POKESO+T,0:NEXT 
10030 POKESO+1,20 : REM PITCH 

10040 P0KES0+5,9 :REM ATTflCK/DECRV 
10050 P0KES0+6,240:REM SUSTAIN/RELERSE 
10060 P0KES0+24,15:REM VOLUME 
10370 P0KES0+4,16 : REM WAVEFORM 
10380 RETURN 
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Highway Code 



Sorry, we don’t have a green giant to help you across the road or 
help you solve any of the questions in this game. This program is 
designed to make sure that you know your code before you begin 
to take your cycle out on the open road. It will also help you to keep 
your parents out of trouble as you can tell them where they 
shouldn’t park their cars. 


Howto play 

The first thing your jolly green computer will ask you is your name 
which you should enter and press RETURN. 

You will then be given a series of questions with three answers to 
each. You must choose the correct one if you want to get points 
and, in real life, stay alive on the road. 



Highway Code 51 


Example: The best place to cross the road is 

1. a) at a bus stop 

2. b) between cars 

3. c) on a zebra crossing 

You must press 1,2 or 3. The quicker your response the higher the 
score. 

The game will end after twenty questions which are at random so 
you may get the same one twice. 


Programming Hints 

To change the selection of questions you alter the input data lines 
from 600 - 727 if you wish to make things easier or more difficult for 
the player. 


Program 


10 REN 

20 REN * HIGHWAY * 

22 REN * CODE * 

24 REN * * 

25 REN sis###*######*##*###*## 

30 RT*=CHR*(17):F0RT=1TOS:AT*=RT*+RT*:HE 
XTT : AT*=CHR*<19)+RT* 

35 GOSUB10090 
40 SC=0 
50 GN=0 
60 RS=0 
70 DIMQ*<13) 

80 BINfi$<13,3> 

90 POKE53280,0:P0KE53281,0:PRINTCHR*(158 
) 

100 INPUT"WHAT IS YOUR NAME ";N* 

110 F0RJ=1T013 
120 REflDQ$(J> 

130 F0RK=1T03 
140 REflIifi$(J,K) 
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150 NEXTK 
160 NEXTJ 
170 PRINTCHR*<147) 

180 PR INTLEFT* < RT*, 1) SPC (5) CHR* < 159) j" QIJ 
ESTIONS: "JQN 

190 PRINTLEFT*(flT$,1)SPC<27);"SCORE: ";S 
C 

200 R=INT<RND<1)#13)+1 
210 IFR=RSTHENGOTO280 
220 RS=R 

230 PRINTLEFT$<RT*,6 > SPC(2 );CHR*(5);Q$(R 

'l 

240 RR=INT<RND<1)#3)+1 

250 RB=INT(RND <1) $3) +1 

260 IFRB=RRTHENGOTO250 

270 RC*INT<RND<1)#3)+1 

280 IFRC=RB OR RC=RR THEN GOTO270 

290 PR I NTLEFT * <RT*, 9) SPC < 3); CHR* (158);" 1 

. ”.;fi*<R,RR) 

380 PR I NTLEFT* CRT*..12)SPCC3)jCHR*<150);" 

2. ";fl*<R,RB) 

31 0 PR I NTLEFT * < FITS , 15 ) SPC ( 3 ) J CHR* <154 )" 

3. ";R*<R..RO 

320 PRINTLEFT*CRT*;19)SPC< 7); ”PRESS 1, 2 
OR 3. ";N* 

338 QN=QN+1:POKE193,0 
340 FORT=1TO500 
350 GETR* 

360 IFT/50--1 NT < T/50) THENPOKESO+1.. 28: FORD 
L=1TO20:NEXTDL : POKESQ+1,0 
370 IFR*="1"THEN T*=R*CR,Rfl)=GOTO440 
380 IFR*="2"THEN T*=fl*<R>RB) : GOTO440 
390 IFR*-"3"THEN T*=fl*<R,RC):GOTO440 
480 NEXTT 

410 POKESO+L 30:FORDL=1TO308 = NEXTDL : POKE 
SO+1 > 8 

428 PRINTLEFT*<RT3C21)SPC<10)JCHR*<18);" 
OUT OF TIME!")CHR*<146) 

430 G0T0528 

440 IFR*<R,1)=T*THEN GOTO 480 
450 F0RSS=1T015 

455 PRINTLEFT*<RT*,21)SPC <8)CHR* < 5);"THR 
T IS WRONG! ";N* 

457 POKESO+1 > 20-SS : FORDL=1T058 : NEXTDL 
460 PRINTLEFT*CRT*,21>SPC<8)CHR*<144>;"T 
RRT IS WRONG! ";N* 
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462 FORDL=11028:NEXTDL 
465 NEXTSS : P0KES0+1, 8 
478 G0T0528 
488 FQRSS=1T015 

485 PRIHTLEFT $ <AT$,21)SPC(10)CHR$(5)j"CO 
RRECT!" 

486 POKESO+1,20+88:FORDL=1T058:NEXTDL 

487 PRINTLEFT$< RT$ ,21)SPC(10)CHR$(144)j" 
CORRECT!" 

488 FORDL=1TO20:NEXTDL 
498 NEXTSS : POKESO+1,0 
492 SI=10-2#INT<TX108) 

500 SC=SC+SI 

520 FQRD=1TO1000 : HEXTD 
522 IFQN=28THENGOTO540 
530 GOTO178 
540 PRINTCHR$<147) 

550 PRINTLEFT#(AT$,10)SPC(4); CHR$(144 );" 

VOUR FINFlL SCORE IS "JSC 

560 P0KE53288,7:P0KE53281,7:PRINTCHR$(14 


580 POKE198,0 : END 

603 DATA"WHAT SHOULD VOU WEAR AT NIGHT?" 

605 DATA"SONETHING LIGHT OR REFLECTIVE." 
/"DARK CLOTHES." 

606 DATA"AS MANY CLOTHES AS POSSIBLE" 

610 DATA"WHICH IS THE SAFEST PLACE TO CR 
OSS THE ROAD?" 

615 DATA"A ZEBRA CROSSING.","A DUAL CARR 
IAGEWAY.","BETWEEN PARKED CARS." 

620 DATA"WHERE SHOULD VOU STAND BEFORE C 
ROSSING THE ROAD?" 

625 DATA"ON THE PAVEMENT A LITTLE WAV FR¬ 
OM THE KERB.","BEHIND A PARKED CAR." 
627 DATA"IN THE ROAD." 

630 DATA"WHERE MIGHT VOU SEE ZIG-ZAG LIN 


ES?" 

635 DATA"NEAR A ZEBRA CROSSING.","NEAR T 
RAFFIC LIGHTS.”,"ON A BUSY ROAD." 

640 DATA"ON A ROAD WITHOUT A FOOTPATH, V 
OU SHOULD WALK : " 

645 DATA"ON THE RIGHT-HAND SIDE.","ON TH 
E>LEFT-HAND SIDE.","ON EITHER SIDE." 

658 DATA"WHAT IS THE BEST WAV TO CROSS A 
CLEAR ROAD?" 

655 DATA"WALK STRAIGHT ACROSS.","RUN." 
WALK DIAGONALLV." 



54 Highway Code 


660 BATA"WHEN WILL fi CRR TAKE LONGEST TO 
STOP?" 

665 BATA"ON R WET RORB.","ON R DRV RORD. 
""OH R BUSV RORD." 

670 DRTR"RT R PELICAN CROSSING,VOU SEE fi 
RED MAN, WHfiT DO VOU DO?" 

675 DATA"WRIT,", "RUN QUICKLY ACROSS.","W 
RLK ACROSS." 

680 DATA"WHERE SHOULD VOU GET ON A BUS?" 
685 DATA"AT A BUS STOP.","AT TRAFFIC LIG 
HTS.","ANYWHERE IT HAS STOPPED." 

690 DATA"WHAT MUST VOU HAVE ON A BICYCLE 
AT NIGHT?" 

695 DATA"FRONT AND REAR LAMPS AND R 

REFLECTOR."/'FRONT AND REAR LAMPS." 
697 DATA"A FRONT LAMP AND A REFLECTOR" 
700 DATA"WHEN VOU ARE WITH fi BOG, SHOULD 
IT BE : " 

705 DATA"OH A LEAD.","IN THE ROAD.","ON 
ALEAD." 

710 DATA"RED AND AMBER LIGHTS AT TRAFFIC 
LIGHTS MEANS:" 

715 DATA"TRAFFIC ABOUT TO START.","TRAFF 
IC STOPPING." 

717 DATA"TRAFFIC MOVING BOTH WAVS." ' 

720 DATA"ON A CYCLE AT TRAFFIC LIGHTS SH 
OWING RED WHAT SHOULD VOU DO ?" 

725 DATA"WAIT UNTIL THEY ARE GREEN.","CV 
CLE THROUGH." 

727 DATA"GET OFF AND WALK THROUGH." 

10000 REM SET UP SOUNDS 
10018 50=54272 

10020 FORT=0TO28 : PQKESO+T,0:NEXT 
10038 POKESO+1,0=REM PITCH 
10840 POKESO+5,9 : REM ATTACK/DECAV 
10050 P0KES0+6,248:REM SUSTfiIN/RELEASE 
10860 P0KES0+24,15 : REM VOLUME 
10070 P0KES0+4,17 : REM WAVEFORM 
10080 RETURN 
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Guess the Number 



I AM GOING TO THINK OF A NUMBER BETWEEN 
1 AND 100. VOU TRV AND GUESS WHAT IT IS. 



You have the chance here to see if you can guess the number your 
computer has chosen for you. 


The game will begin with a number between 1 and 100 but as you 
become an expert at guessing the number your computer will start 
to widen the range to between 1 and 120, and then 140 and so on. 


Programming Hints 


You can make the game easier or more difficult to start with if you 
decrease or increase the value of ‘max’ in line 50. 



56 Guess The Number 


Program 


IP REM if if f if £ f f $ if if f if f if $ if if $ $ if if f. * ;f if 
12 REM $ :f 

14 REM if GUESS THE NUMBER if: 

18 REM if if 

20 REM if if if if if if if if if if if if if if if if if if if if if if if if if 
25 POKE53280 > 12 : P0KE53281.11 : GOSUB18800 
30 RT$=CHR$ (17) : F0RT= 1TOS : fiT$=FiT$-i-RT$: NE 
XTT ; AT $=CHR$ (19) +RT$ 

49 TR=0 : OPENS , 8 

50 MfiX=100 
60 C=0 

70 PRINTCHR$<147>:TR=0 
80 PRINTCHE$<154)" G U ESS A N 

U M B E R 

82 PRINT" - 

_ II 

84 F0RBL=1TO1000 = NEXTDL:GOSUBi8288 
90 PRINTLEFT*(AT*,4)SPC(0>CHR*(30);"I RM 
GOING TO THINK OF fi NUMBER "j 
92 PR I NT" BETWEEN 1 AND" MRXCHR* (157);"."; 

94 PRINT" YOU TRY AND GUESS WHRT IT IS." 

95 FORBL=1TO3000 : NEXTDL 

100 PRINTLEFT*(RT*,21)SPC <14 >"THINKING.. 

II 

110 R=INT < END(1}fMRX) +1 
i20 FORBL=1TO2000:NEXTDL 

124 PRINTLEFT*(AT* ,21)SPC(14)" 

II 

125 PRINTLEFT*(AT*,7)SPC(25)"GUESS ANSW 
ER" 

127 PR1NTCHR*(158) 

130 F'R INTLEFT$ (RT*,7) SPC < 8)" 0. K. WHRT N 
UMBER"=PRINT" RM I THINKING OF?" 

135 PRINTLEFT*(RT*.. 10)SPC (8)" 

ll 

148 PR I NTLEFT* (RT*..10)SPC(4)"?. 

142 PRINTLEFT*< AT*,10)SPC(5); 

145 WRIT197,64 : POKE19S .> 0 
158 INPUT#3,ANS*:RNS=VRL <LEFT*(ANS*,8)) - 
ANS*=STR*(ANS>=PRINT = PRINT:PRINT 
155 IFVflL(ANS*)=8THEN130 

169 TR=TR+1 

170 I FRNS>RTHENPR INTCHR* (159)" YOUR ANSW 
ER IS T00";CHR*(5);" HIGH.";CHR*(159) 






Guess The Number 57 


175 IFflNS>RTMENF'R I NT" TRV fi LOWER NUMBE 
R.":GOSUB10200 

180 IFflNS<RTHENPRINTCHR$<159>)" VGUR RNS 
WER IS TOO ";CHR$a50)"LOW. n ;CHR$<159> 

181 IFANSCRTHENPRINT" TRV fi HIGHER NUMB 
ER.":GOSUB10210 

182 1 FfiNS>RTHENR$=C‘‘ .... 

183 IFflNS<RTHENR$*C 

184 IFRNS=RTHENR*=C 

185 PRINTLEFT$(RT$,_______ 

;RHS :: "R*J 

186 IFTR=-> 18THEH460 

189 IFANSOR THEM GOTO 130 
208 GOSUB10220 

210 PRIMTLEFTf<AT $ .13)" THRT IS THE H 

UMBER! ! 

212 PRIHTLEFTf(fiTf.' 14)" 

i: 

214 PRINT:PRINT 

216 FQRBL=1TO1080 = NEXTBL 

218 TP=MAX 

220 C=C+1 

238 TF-TP/2 

240 IF TPM THENGOTO 22@ 

250 PRINT" VOU GUESSED IN "TR"TRIES." 

252 PRINT:PRINT 

260 IFTRCC+2THENG0T0318 

270 MRX=MflX-20 

288 IF MfiX<20 THENMfiX=20 : GOTO330 
290 PRINT"THAT WAS A BIT SLOW! I WILL RE 
DUCE THE MAN I MUM NUMBER TO ") MAN 

380 GOTO330 
310 MRXsMflX+20 

320 PRINT"THAT IS VERY GOOD. I WILL INCR 
EASE THE MAXIMUM NUMBER TO ";MAX 
330 0=8 
340 TR=0 

358 F0RDL=1TO3000:NEXTDL 

352 PRINTLEFT*(AT*,23)SPC <5 > CHR$(18 >;" H 

IT ANY KEY TO PLAY AGAIN "j 

355 GETR$ : IFA$=""THEN355 

360 PRINTCHR$(147) 

370 GOTO70 

400 REM RUN OUT OF GUESSES 
410 PR I NTLEFT$ < FIT* M2) SPC < 2) CHR$ (159))" Y 
OU'VE RUN OUT OF GUESSES" 







58 Guess The Number 


415 PR INTLEFT $(RT $,13)SPC < 0 V' 


420 PR I NTLEFT $ (. RT$.. 14 > SPC (2) CHR$ < 158); "T 
HE HUMBER WHS ";CHR$<5>jR;CHR$<157);" " 
430 GOT0350 


10690 

REM SET UP S 

OiJNBS 





1001 0 

50=54272 






10020 

F0RT=QT028 : P 

0KES0+ 

T,3 : HE 

XT 



1 0030 

POKESO+i .« 20 : 

REM 

PITCH 

VI 



10040 

P0KES0+8.. 10 : 

REM 

PI l CH 

V'2 



1 0@50 

r : U K t S Li + i 512 

'• REM 

PITCH 

V3 



10060 
i.,» •] 

pnKESn+^>P : 

P0KES0+6.: 248 

•‘REM 

fill 

SR 

10070 

P0KES0+12,12 

:POKES 

0+13,1 

08 : R 

EM A 

US 

R V2 







10989 

i iO 

P0KES0+19,34 

• PUKtSO+20 .« 60 • Rc 

M REi 

SR 

V ‘~J 

18090 

PGKESQ+24,15 

; Kbh 

VOLUM 

E 



10109 

POKESO+4,16 

•• REM 

WfiVEF 

URM 



10110 

P0KES0+11 , 32 

: REM 

WFivEF 

ORM 

V2 


10129 

F'OKESO+18, IS 

: REM 

WflVEF 

ORM 

l| } •-! 


19125 

RETURN 






16130 

: POKESO+4,33 

: POKES 

0+11,1 

7:FORSS" 

57 

O100STEP6 ■’ POKESO+i 

b'o • PU 

KESO+8 

200 

— o c 


10140 

NEXTSS 






10158 

POKESO+4,17: 

F0RSS= 

280TO1 

0C;Tr 

p-3 : 

PO 

KESO+1 

.,SS : P0KES0+8 

250-S 

3:NEXT 




18168 

:POKESO+4,33 

:FORSS 

=301010037 

EP10 

:p 

OKESO+i,S3 : NEXTSS 






10170 

POKESO+4,33: 

F0RSS= 

507010 

STEP 

-8 •• P 

OK 

ESO+1, 

SS = NEXTSS 






10180 

POKESO+4,16: 

POKESO 

+11,0- 

RETURN 


10200 

POKESO+4,17: 

FORSS- 

17 080 : 

POKE: 

SO+1 

•' b 


S •• NEXTSS: POKESO+4, IS- RETURN 
16219 POKESO+4 ,17- F0RSS=88T01STEP-1:POKE 
SO+1,SS:NEXTSS:POKESO+4,16:RETURN 
18220 FORV~1T09:POKESO+4,17:F0RS8=10TO40 
:POKESO+i,SS:NEXTSS,V••POKESO+4,16:RETURN 
18238 POKESO+4,17 : FORSS=200TO0STEP-1 : POK 
ESO+1, SS: NEXTSS ’• POKESO+4,16 = RETURN 
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Word Mix 



If you ever get words mixed together when you are thinking about 
something else and have to go back and rewrite your essay then this 
game will be easy for you. 

We have mixed one word through another but we haven't jumbled 
them up - if you see what we mean. 

Here is an example: ABFOOUUTR 

spells ABOUT FOUR 

As you can see both words are mixed together but not jumbled. 
You have to have a sharp eye to pick them out and separate them. 



60 Word Mix 


How to play 

The computer will put up on your screen two words mixed as in the 
example above. 

Type in the first word and press RETURN then the second word 
and RETURN. 

You can use lower case - capitals aren’t necessary. 

You will receive one point for each correct word and the score will 
appear on the top of your screen. 

If you cannot solve the riddle type ESCAPE to give up. 


Programming Hints 

If you wish to make the selection of words even more difficult then 
change the data in lines 450 onward. If you increase the number of 
words make sure that you change the 50 in lines 60, 80,140,150 to 
match the total number of words, e.g. if you had 80 words, line 60 
would be: 

60 DIM Word$ (80) 


Program 


i 0 K EM $ $ $ $ $ $ % $ $ $ * y Mi; 'ii. ii}> $ ^ 

12 REM % 


14 REM 


1 ,!p fi 'y! T V 

i 11 r"i 


16 REM % % 

S {••*) jV ;jjij ^ ;«£ jlj!* -ur ;&• •(/*; -i’r ^ yii •!;} 

22 P0KE53288 ■ 14 • P0KE53281 .* 1 
25 RT$=CHR$(17):FORT-170S : F 
KIT:flT$=CHR$<19KFi7$ 

48 SC=0 
59 TP-9 
69 DIMWf(50) 

88 FGRJ=1 TO 58 

se R£fin mm 

1@C HEF.TJ 

119 PRIMTCHR$(147 > 

128 PRINTLEFT* < R7$,3)SPC(5);CHR 


Ml 




MU 





Word Mix 61 


W 0 R DM : X" * ... 

1 88 PR INTLEFT$ (riT$ .> 3) SPC (25) > CHR$ (144) .• ” 

SCORE: ,! ;CHR$<5);SC 

140 R 1=1 NT (Ri'-lli (1)$58> +1 

158 R2~INT<RHIK 1>#38> + 1 

168 IFR1 --R2YHEHG0T0158 

1 62 I i~ Lth (W '$ K1 )) 18 i HE H i4$ (R i ) ~^% (K1 j + 
" GOTO162 

164 IF LEH(W$(R2))618 THENW$<R2 >=w$<R2) + 
” “ : 00T0164 

165 PUKE50+417 : F0KESU+1 1 38 • FORT — i T048 ■ H 
EXTT : P0i<ES0-:-4,16 


176 

Mi=i 




188 

M 2 =l 




190 

PRIWTLEFT* 

<H7£,S} 

SPC ( 

i 0 ;, 0 /, 

280 

IFRH3X1>>. 

5THENGC 

i ! J«ih 

V 

208 

IFM1M07HE 

NbU 1 Uclb 

0 


218 

IFf 1 ID$<M$< 

Rl) jMIj 

i>=" 

!, THEHGOTO230 

220 

FRINTMIIi$( 

W$(R1); 

Ml, 1 

); 

238 

M 1 =M 1+1 




246 

G0T02S8 




d to 

IFiT2>10THE 

NG07028 

’/:■ 


258 

IFMID$<W$< 

p \ i >-/j p ( 

1 ) = !: 

u THENGuT02)''b 

260 

PRINTf1IB$< 

H$<R 2 >) 

M2,1 

/, 

273 

M 2 =M 2+1 




23 •-* 

IF 1 IKI 8 OR 

N 2 -ae 

i riEr-i 

iJ:j i ;jc.‘ r J 0 

230 

r T! 

PRINTLEFT* 

\ fi i S.> 18 

f'uruh / •; .1 

>SPC 

(8) :! KHR7 FlRE 


388 IHFUi “ F i Ko i RUKjJ 

382 PQKESO+4 .> 17 : P0KES0+ 1,26 : FORT" 11048 : N 


•Z- 

0 ( 

pfi 

;<ESC 

3+4, 1 

T * p 

;_i jp p i 

0+1, 

► 28 : 

FORT 

*1TO40 

: N 

E 

K77 • P 

OKES 

;! i J + 4 ; 

lo 







~r 

10 

TR 

=7Rh 

-1 








• j 

*. A 

L *T 

IF 

H'C" 

-"QUI 

*t* r. 

i ilLh 

P'J 1 

10 4 

28 



320 

IF 

LEh 

KFi$> 

<10 

THEHfi$ s 

=fi$+ 

ft H • 

ijSj i iJOd 

8 

3 

33 

T P 

X 1 

LEr- 

'1 ( B -r’ ) 

<10 

7HEI 

!'■( P :r 

=B$+ 

1 ; M • 

G07032i 

F < 

•C; 

40 

T P 

m< 

:>w$< 

R1 > 

PiHB 


(CMS 

(R2 

7HEN 

EJSJ 

T 

fjpTfT; 










3 


PR 

1H7C 


D / J 







5 

50 

p 

T L.ITI 

x n : l 

„EFT$ 

<R7 

C .1 j. p 

*■) opr 

::(6) 

11 YOU 

p p T p/ O 

T 

w 

GRI 

J 1 

0 ! > • 

CHR$ 

(15 

3);" 

CORF 

p. L- i 




o ; 

55 

PO 

KE8C 

3 + 4 , 1 

*7 • p 

OKESi 

j+1, 

' 36 : 

FGR7 

•• T •— cr r- 

•••“ J. ; : Jrj 

; P 





62 Word Mix 



432 r"K iNiLEF , 28)Sh'L.23 ) i LHb;£(I08 ) > 


433 PR IH I CHK$ 17).’ UHRS (17 ) ] 8HK-? 133 ) > " 
"CHR$<!8>” PRESS RHV KEV 70 COHTIHUE 

434 FORBL® 1702938: GET88$ : I FSSfO" ,! THENBL 
-2908 

435 NEXTBL 
448 GO70118 

458 BfiTfi 11 BfiHK" /HOUR, " MOST" 

468 BfiTB ■' VRRIi ”, “ FOUR", "MOST 11 
478 BBTfi ”MORN I HO '’,"71 ME",FOUND " 

488 BBTfi"HOOF", "SfiB 11 , ”BLACK :: 

498 BfiTfi"ANIMAL", "ftBOUT", "SOLDIER” 

568 BfiTB”COLONELVRUMOUR”, ”ENGIHE” 

518 BBTfi "LEG”, "CRSTLE" , "DIGEST" 

528 BfiTfi"GUITAR", "BOG".. "BUTTER" 

538 BBTfi ” BRICK", ”SPfiCE"," BUCK" 

548 BBTfi" BEROPLBNE", ” BfiTTERV" " SPARROW” 
558 BfiTfi"PRINT","STAR","SYSTEM” 

568 BfiTfi" CfiNBRY" , ” BASE”," UKITE” 

578 BfiTfi"TABLE ,! ,"CHfiIR","MfiGIC" 

588 BfiTfi”LfiNB","JUSTIFY","HfiBIT" 

538 BfiTfi"MECHfiN 1C", ”CVLINBER VOIL” 

688 BfiTfi"SPfiBE","MARKET", "TRACTOR” 

618 BfiTfi"ROBUST","VARIETV" 




Word Mix 63 
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Constellations 



This is a great game for learning how to make money off your pals 
by asking them at night if they know which star group is which in 
the sky. 


It is also very handy to know your stars as you never know when 
you will need to navigate your way out of a crocodile-infested 
swamp - or drive to London in the dark. The star at the end of the 
tail of Ursa Minor, or the little bear, is called the pole star and will 
always be to your North. 


How to play 

The computer will show you the shape of some of the main star 
groups to be found in the skies around us and will give you the 
Latin and the common names for each group. 



Constellations 65 


The screen will then show the stars without any names and will ask 
you to type in your answer in CAPS and RETURN. 

If your guess is wrong the screen will light up and show you both the 
names. To stop the game press ESCAPE. 

Happy stargazing. 


Program 


10 REM 

20 REM # * 

22 REM * CONSTELLATIONS # 

24 REM * # 

25 REM 

30 AT*=CHR*(17):FQRT=1T06:AT*=AT*+AT*:HE 
XTT : AT*=CHR*(1 SO +AT* 

35 F0KE532890: P0KE5328 1, 0: PR INTCHR* <147 
) ;CHR*<158) 

40 T=0 

50 FOR CN=1TQ7 
60 READ X,V 
70 ON (ON.. T , @)=X 
80 ChKCN, T,1 >=V 
90 IFK=0THENGOT0110 
100 T=T+1 : GOTO60 
110 READCN*(CN,0) 

120 REABCN*CN , 1) 

130 T=0:NEKTON 

135 F0RN=1TQ7 

137 FL=0:R=N=GOTO150 

140 R=INT(RND<1)#7)+1 

150 IFCN<R-1,0)=0THEN190 

160 PR INTLEFT* < RT$, CN C R, T, 1)) SF'C (CN < R, T, 

0)+3)"." 

170 T=T+1 
180 GOTO150 

199 IFFL=1THENGOTO250 

195 PRINTLEFT*<AT*,4)SPC U 2);" 

ll 

200 PRINTLEFT*<AT*,4> SPC(12 >;CN* <R,0) 

205 PR I NTLEFT * (AT*, 20) SPC < 12) i 11 

it 

210 PRINTLEFT*<AT*,28>SPC<12)jCN*<R,1) 



66 Constellations 


228 FORDL=1TO1000 = NEXTDL 

238 IFFL=8THENPRINTCHR$(147):T=0 : NEXTN : F 

L=1 : GOTO310 

250 PRINTLEFT*<AT$, 20)SPC<8>; "WHICH IS T 

H i C; *p 11 

268 PRINTLEFT$<AT*,22)SPC(8); : INPUTAN* 
264 PRIHTLEFT $( ATS,20)SPC <8)J" 

II 

266 PP. I NTLEFT* <RT$, 22) SPC < 8) j ” 

II 

278 IFAN*=CN$<R,0)ORflN$=CN$<R.■ 1)THENPRIN 
TLEFT$ <AT*, 22) SPC (10 ) 11 THAT IS CORRECT!" 
280 PRIHTLEFT$<AT*,4)SPC<12>; CN*<R, 0) 

290 PRINTLEFT*<AT*,20)SPC(12);CN*<R,1) 

308 FOPIiL= 1TO1000: NEXTDL 

310 T=0:PRINTCHR*<147):GOTO148 

1800 DATA 12,11.15,10.. 17,18,20,10,22,11, 

25,9,24,7,0,0 

1018 DATA"URSA MAJOR","GREAT BEAR" 

1820 BRTR12,11,14,11,12,9,14,9,15,7,17,6 
,20,5,8,0 

1830 DATA"URSA MINOR","LITTLE BEAR" 

1048 DATA12,11,13,13,14,13,15,16,18,15,8 
,0 

1058 DATA"CASSIOPEIA"," " 

1060 DATA12,11,13,10,11,12,11,15,14,7,16 
,15,10,7,0,8 

1078 DATA"ORION","THE HUNTER" 

1088 DATA 12,11,13,12,14,12,15,11,16,18, 
15,10,0,0 

1890 DATA"CORONA BOREALIS","NORTHERN CRO 
WN" 

1180 DATA 12,11,15,12,17,13,17,14,0,0 
1118 DATA"SAGITTA","THE ARROW" 

1128 DATA12,11,16,10,17,5,18,7,24,13,21, 

18,21,9,22,5,8,0 

1130 DATA"CVGNUS","THE SWAN" 
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History Quiz 



£85ggN°i?*SV5 °* CRT FIRe 0F 



Here is a chance to catch up on your history lessons without 
looking stupid because you have got the answer wrong. If you are 
working with your own computer no one will know that you need 
more practice with your history. 

This is very like the science quiz which offers multiple answers for 
which you must make the correct choice. You can also alter the 
questions in this program as explained at the end. 


Howto play 

The computer will ask you for your name and you type it in and 
press RETURN. 

A choice of statements will appear on the screen and you will be 
asked to choose the correct answer. 



68 History Quiz 
Example: 

The Napoleonic wars were fought between? 

1. The French and English 

2. The English and Americans 

3. The French and Italians 
To answer press 1,2 or 3 

If you are correct the computer will tell you and if you are wrong 
the computer will print ‘That is wrong’. 


Programming Hints 


The lines to change for your own questions are from 600 - 800. 
Remember, if you change the total number of questions you will 
have to change lines 70,80,110,200. 


Program 


1@ REM if: if: if if: $ if $ if: if f: if: f f if: f if: if $ f if f 
20 REM if HISTORY QUIZ * 

22 REM if if 

24 REM * f 

25 REM ffffffifffffifififfiffffiff 

30 RT$=CHR$(17):F0RT=1T06:flT$=flT$+RT$:ME 
XTT : AT$=CHR$(19)+AT $ 

40 SC=0 

59 QN=8 

60 R8=0 

70 IHMQ$(2Q) 

80 DIMFi$(2@.' 3) 

90 P0KE53288,0:P0KE532S1,0:PRIHTCHR$(158 
)CHR$ (147) 

9 5 G 0 S U B10008 

100 INPUT" WHAT IS YOUR NAME"N$ 

105 P0KES0+4;33:FORT*iT038 : NENTT:P0KESQ+ 
4,32 

110 FORJ=1TO20 





History Quiz 69 


120 REfiiiQ*a) 

130 F0RK=1T03 
140 REfiBfi$<J, K) 

150 NEKTK 
160 NEXT,! 

170 PRINTCHR*<147) 

188 PRINTLEFT*<flT$,1)SPC <3>CHR$<158);"QU 
ESIIONS: ";qh 

190 PRINTLEFT*<RT$,1)SPC<18 > CHR*<5);"SCO 
RE: "SC 

200 R=INT <RND<1)*20) +1 
210 IFR=RSTHENGOTO200 
220 RS=R 

230 PRINTLEFT* < flT$,7)SPC<0)Q$C R) 

240 Rfl=INT<RND<l)#3)+l 

250 RB= I NT <RND (1) *3 HI 

260 I FRB=RRTHENG'OTO250 

270 RC=INT <RND(1)*3 ) +1 

288 IFRC=Rfl OR RC=RB THENGOTO270 

290 PRINTLEFTf< RTS,18)SPC<0)CHRS <150)J"1 

. ";CHR$<129);fl$<R,RR) 

300 PRINTLEFT*< RTS,12 >SPC < 0)CHRS<158);"2 
. " ; CHRS (153); RS < R, RB) 

319 PR INTLEFT* < RTS ,14) SPC < 0) CHRS < 158).:" 3 
. ";CHRS<152);fi$ < R, RC) 

328 PRINTLEFT*< RTS,13)SPC<7)CHRS< 5); CHRS 
<18);" PRESS 1,2 OR 3,";NS;" " 

338 QN=QN+1:FL=0 : R$="" 

340 FORT=1TO380 
358 GETRS 

360 IFT/50=INT < T/50)THENPCKESO+1,25:POKE 

80+4,33:FORTT=1TG30:NEXTTT=P0KES0+4,32 

370 IFR*="1"TRENTS=fiS < R,Rfi):FL=1 

380 IFRS="2"THENT$=RS < R,RB) : FL=1 

390 IFRS="3"THENT*=AS < R,RC):FL=1 

395 IFFL=1THENTT=T:T=1008 = NEXTT:OOTO440 

408 NEXTT 

410 : 

428 PRINTLEFT$<RTS,28)SPC<7)CHRS< 5);CHRS 
< 18).:" OUT OF TINE! " 

430 GOTO520 

440 IFRS < R,1)=TSTHENGOT0480 

458 POKESO+4,17:F0RT=48T01STEP-4 

455 FORTT=TTOT+30 : POKESO+1,TT:NEXTTT:HEX 

TT : POKESO+4,16 

460 PR INTLEFT* < ATS,28) SPC < 7) CHRS < 129); CIH 
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R$<18);" THAT IS WRONG, ";N$;" " 

476 G0T0528 

480 POKESO+4,33:FORT=1TO109STEP10 

484 FORTT=TTOT+30 : POKESO+1,IT : NEKTTT:MEN 

TT:POKESO+4,32 

430 PR INTIEFTS (AT$, 23) SPG (11) CHR£ (158)C 
HR$(18) i " CORRECT!" 

492 SI=10~INT(TT/1@0) 

500 SC=SC+SI 
510 : 

520 FORD=1TO1000 : NEXTB 
522 IFQN=20THENGOTO540 
530 GOTO178 
540 PRINTCHR$<147) 

550 P0KE53288,7:P0KE53281,7=P0KE646,@ 

560 PRINTLEFT$(RT$,10)SPC(4)”VOUR FINRL 
SCORE IS ";SC 
576 : 

580 END 
530 : 

600 BATA"WHEN BIB JULIUS CAESAR FIRST CO 
ME TO BRITAIN","55 BC","1914","1066" 
610 BATA"WHO RULED BEFORE QUEEN ELI2ABET 
H II","GEORGE VI","QUEEN VICTORIA" 

615 BATA "EDWARD VII" 

620 DATA "WHO INTRODUCED THE PENNV POST? 
","ROWLAND HILL","JULIUS CAESAR" 

625 DATA"WALTER RALEIGH" 

630 DATA"WHERE DID THE GREAT FIRE OF LON 
DON START?" 

635 DATA "PUDDING LANE","OXFORD CIRCUS", 
"FURNACE LANE" 

640 DATA "WHEN WAS THE FIRE OF LONDON"," 
1666","1343","1841" 

650 BATR"WHV WERE THE EGYPTIAN PYRAMIDS 
BUILT" 

655 DATA"AS TOMBS","AS HOUSES","FOR GRRI 
N STORAGE" 

660 DATA"WHO WAS SENT TO AUSTRALIA IN TH 
£ LATE EIGHTEENTH CENTURY?" ' 

665 DATA"CONVICTS"/’PRISONERS OF WAR","S 
LAVES" 

670 DATA"WHICH CENTURY ARE WE IN NOW?" 
675 DATA"TWENTIETH","NINETEENTH","EIGHTE 
ENTH" 

680 DATA"WHO WAS DISRAELI?" 
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685 DATA "A PRIME MINISTER","A KING","AH 
AUTHOR" 

630 DATA"WHO INVENTED THE TELEPHONE?","B 
ELL","COOK","BAIRD" 

708 DATA"WHO WAS THE FIRST MAN IN SPACE” 
705 DATA"VURI GAGARIN","NEIL ARMSTRONG", 
"LEONARDO DA VINCI" 

710 DATA"WHEN DID THE FIRST WORLD WAR ST 
ART?" 

715 DATA"1914","1339","1918" 

720 DATA"WHO WAS SIR ROBERT WALPOLE?" 

725 DATA"THE FIRST PRIME MINISTER"/'INVE 
NTOR OF THE LOCOMOTIVE" 

727 DATA"DISCOVERER OF AMERICA" 

730 DATA"WITH WHICH ANIMALS DID HANNIBAL 
CROSS THE ALPS?" 

735 DATA"ELEPHANTS","CAMELS","LLAMAS" 

748 DATA"WHO STARTED THE POLICE FORCE?" 
745 DATA"PEEL","NELSON","GLADSTONE" 

750 DATA"WHO DEFEATED THE SPANISH ARMADA 


755 DATA"FRANCIS DRAKE","WALTER RALEIGH" 
."HENRY VIII" 

760 DATA"WHAT WAS CHAIN-MAIL?" 

765 DATA"ARMOUR","AN EARLY POSTRL SERVIC 
E","A SHIPS ANCHOR CHAIN" 

770 DATA"HOW MANY WIVES DID HENRY VIII H 
AVF?" 


780 DATA"WHAT ANIMAL SPREAD THE PLAGUE 0 
F 1665?" 

785 DATA"RAT","MOUSE","HORSE" 

790 DATA"WHO WAS THE FIRST PERSON TO WAL 
K ON THE MOON?" 

795 DATA" ARMSTRONG", 11 GAG ARIN"," SHEPHERD" 
10088 REM SET UP SOUNDS 
10018 30=54272 

10028 F0RT=8T028 •' POKESO+T, 0 : NEXT 


10030 POKESO+l,20 
10840 F'OKESO+5,9 


REM PITCH 
: REM ATTACK,-"'DECAY 
18850 P0KES0+6,248 : REM SUSTAIN/RELEASE 
10068 P0KES0+24,15 : REM VOLUME 
10878 P0KES0+4,16 :REM WAVEFORM 
10880 RETURN 
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Spelling Test 



Well, you must have expected to find a spelling test somewhere in 
the book and here it is. 


Howto play 

Your computer will put a word on the screen for a few seconds and 
then blank the screen and ask you to spell the same word correctly. 


Programming Hints 

If you think the time that you see the word on the screen is too long 
or too short you can alter the pause in line 170. If you feel that the 
words are too easy for a bright young thing like you then ask your 
parents to type in some more difficult words from line 400 onward. 
If you add more words, change the 50 in lines 70, 80, and 120 to 
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match the total number of words. 

The computer will ask its questions at random so you shouldn’t 
really know what is coming up next. 

Program 

10 REM % ft : M $ % $ $ if $ $ $ $ $ $ $ $ $ $ i>j>: 

20 REM * SPELLING TEST * 

22 REM * * 

24 REM * * 

25 REM 

27 P0KE53281,13:POKE53280,12 
30 RT*=CHR*(17 >:F0RT=1TOS:AT*=AT*+RT*:NE 
XTT ; AT$=CHR$<19)+AT$ 

35 G0SIJ310009 
40 SC=0 
60 HS=0 
70 DIMW*(50) 

80 FORJ=1TO50 
90 RERDW*<J) 

100 NEXTJ 
110 FOR H=1TO20 
120 R=INT<RND<1)#50)+1 
130 PRINTCHR$<147) 


140 

PRINTLEFT*( 

PT$, 

2)SPC(4)" 

SCORE : 

n • r 
.* •: 

sc 

150 

PRINTLEFT*( 

( 

2) spc as) 

"HIGH 

SCOf 

~tr~ . 

* 

11 • 

HS 






160 

PRINTLEFT*< 

AT*, 

8)SPC<18- 

(LEN(l< 

j$(r: 

) V 

2 )> 

W*(R) : WW*=W* 

(R) 





165 

IFLEN(W* (R ) 

X10 

THENW$CR 

)=W*(F 


ii • 

GOT 

0165 






170 

FORDL=1TO20 

8: NE 

.XTDL 




180 

PRINTLEFT*( 
1 \ 

AT*, 

8>SPC<9 >" 




199 

PRINTLEFT*( 

RT*, 

IS)SPC(9) 

"WHAT 

WAS 

TH 


E WORD?" 

135 PRINTLEFT$(AT*,18)SPC(9); 

2O0 INPUTA* 

202 IFLEN(A*X10 THENA*=R*+" ":G0T0282 
210 IFA*=W$ (R)THEN270 
220 P0KES0+1,20:P0KES0+4,17:FQRQQ=1J038 : 
NEXTQQ : P0KE30+4,16 

230 PRINTLEFT*(AT*,8)SPC(11)"THE WORD Wfi 

C " 
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235 PRINTLEFTf(ATf,10?SPC <17-<LEN <W W$)/ 
??WWf 

244 PR I NTLEFTf < ATf, 1 6) SPC (3)" 

II 

245 PRINTLEFT $(RT$ ,18)SPC(3)" 

II 

250 FORDL=1TO400:NEXTDL 
260 OOTO300 

270 POKESO+l, 25: F'OKESO+4,17: F0RQQ=1T039 
NEXTQQ:P0KES0+4,IS 
280 SC=SC+10 
300 NEXTN 

310 IFSOHSTHENHS=SC 
312 PRINTCHRfC147) 

314 PRINTLEFT$<AT$,8)SPC(3?"YGUR FIHfiL 
CORE WRS."SC 

316 IFSOHS THENPRI HTLEFTf < ATf, 10) SPC < 3 
"THAT IS THE HIGHEST SCORE TODAY." 

320 INPUT" PLAY AGAIN <Y/H)".:Q$ 

330 IFLEFTf(S$,1)="N"THEN380 

340 SC=8 

360 GOTO!10 

380 END 

400 BATA"QUIZ","MESSAGE","PAVEMENT" 

410 DATA"BICYCLE","SPECIAL", "BENEATH" 
420 DATA" MOUNT AIN"," LI STEM,"," SCHOOL" 

430 DATA"TOMORROW","BUSINESS","ADDRESS" 
440 DATA"PARALLEL","HEIGHT","LENGTH" 

450 DATA"CEILING","EXPERT","KETTLE" 

468 DATA"COLONEL","SURPRISE","FORECAST" 
470 DATA"ATTACH","RHUBARB”,"MERINGUE" 
480 DATA"DAFFODIL","KNOWLEDGE","YACHT" 
490 DATA"TONGUE","MINIATURE","DINGHV" 
500 DATA"AMATEUR","PUNCTUAL","ILLOGICAL 
510 DATA"GIRAFFE","PARSLEY","TRIANGLE" 
520 DATA"LEGIBLE","MOSAIC","DISCIPLE" 
530 DATA"AMEND","GUITAR","BELIEVE" 

540 DATA"STATION","PRESENCE","SAVIOUR" 
550 DATA"ALCOHOL","CABARET", "SYLLABLE" 
560 DATA"AQUATIC","PNEUMATIC" 

10000 REM SET UP SOUNDS 
10010 S0=54272 

10020 F0RT=8T028:POKESO+T,0 : NEXT 
18030 POKESO+1,20:REM PITCH 
10040 P0KES0+5,9 : REM ATTACK/DECAY 
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10S50 POKESO+S .■ 240: REM SUSTfi I H/P.ELERSE 
18060 POKESO-i-24.. 15 : REM VOLUME 
10070 POKESO+4,16 -'REM WAVEFORM 
10080 RETURN 
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Speed Reading 



The sentence was: 

the river is fast and deep 



This is a game for those show-offs amongst you who can remember 
everything, write it down and get it right every time. 


A sentence will appear on the screen for a few seconds and you 
must remember the sentence and the correct spelling of the words 
if you are going to get your points. 

There is one big snag for clever little people though - the better 
your answers the faster the computer goes and you will only get to 
see the sentence for a split second before you have to answer. 


Howto play 

Your computer will put the line up on the screen and ask you to 
type it in after a short pause. 
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You do not need to use caps, but remember to press RETURN. 

If you get it wrong the screen will tell you. 

Programming Hints 

If you want to change the sentences to make it more difficult for 
yourself, or your friends, the lines to change are from 400 onward. 


Program 


10 rem 

20 rem * # 

22 REM * SPEED READING * 

24 REM * * 

25 REM **Mm*M*XW**M*M* 

27 GOSUB10000 

30 AT$=CHR$<17):FORT=1TOS:AT$=AT$+AT$ : HE 
XTT:flT$=CHR$<19)+AT* 

32 PQKE5323U 5 = POKE53280,13 
40 SC=0 
50 TM=300 


60 HS=0 
70 DIMW$<30) 

80 FORJ=1TO30 
30 REALW$<J) 

100 NEXTJ 

110 FQRN=1T02 

120 R=INT < RNB <1)#30) +1 

130 PRINTCHR*(147);CHR$<31); 

132 FORT=0TO39 : PRINTCHR*<18); CHR$ <32 > i ■N 


EXIT:print 


135 

137 


PRINTLEFT*<AT$,2)CHR$<31)JCHR$<18)" 
SPEED READING "i 

FGRT=0TO40:PRINTCHR$<18);CHR*<32); : N 


EXTT:PRINTCHR$<144) 

140 PRINTLEFT$ < FlT$ j 4)SPC(4)"SCORE : "SC 
150 PRIHTLEFT$< AT#,4)SPC(28 V HIGH SCORE: 


"HS 

155 P0KESQ+1.- 60 : P0KES0+4,19 : F0RDL= 1T038 : 
HEXTBL: P0KES0+4,18: F'OKESO+1,0 

156 PRINTCHRt<149) 

157 PR I NTLEFT$ < AT$.. 7) SPC (5) CHR$ < 1S ) i ■ FOR 
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T=1TOLEH < W*(R)) : PRIHI" " 
168 PR I NTLEFT* (FiT*8 ) SPC 


:NEXTT:PRINT 
5)CHR*(18);U*(R 


162 PR I NTLEFT* < RT*, 9) SPC < 5 > CHR* (18): FOR 
T=1TOLEN(W*(R)):PRINT" ";:NEXTT:PRINT 
170 F0RDL=1T0(TM-SC) ; NEXTDL 
175 POKESO+1,69 = POKESD+4.19:FORDL=17030: 
NEXTDL: P0KES0+4,18: POKESO+1.. 0 
177 FORT=0TO2 

180 PR INTLEFT* < FlT*, 7+T) SPCC 5 >" 


182 NEXTT 

190 PR I NTLEFT* (FiT*, 16 ) SPC < 5) CHR* (5) i ” WHrl 
T WAS THE SENTENCE?";CHR*(144) 

195 PRINTLEFT* <AT*.18)SPC(5); 

200 INPUTR*:fl*=" "+fl*+" " 

202 IFLEN (fi*)<32THENR*=R*+" ":OOTO202 
210 1FLEFT* < m . LEN < W* < P.))) =W* (R) THENGOTO 
270 

220 POKESO+1.23:POKESG+4.17:FORDL=1TO30 : 
NEXTDL:P0KESQ+4.IS 

230 PRINTLEFT*<RT$.6)SPC<5)CHR*<5);"THE 
SENTENCE WRS : CHR*(144) 

240 PRINTLEFT* <RT*.8)SPC <4)W* <R) 

244 PRINTLEFT*<AT*.16)SPC<3)" 


246 PR I NTLEFT* <RT*.18)SPC(3)" 

it 


250 FORBL=1TO1000:NEXTDL 
260 OOTO300 

270 POKESO+1,14=R0KES0+4,33 : FORDL=1TO30 : 

NEXTDL:P0KES0+4,32 

280 SC=SC+10 

290 NEXTN 

300 NEXTN 

310 IFSOHSTHENHS=SC 
312 PRINTCHR*(147) 

314 PRINTLEFT*(RT*,8)SPC<7)"VOUR FINAL S 
CORE WAS "ISC 

316 IFSC=HSTHENPRINTLEFT*(RT*,10)SPC(3)" 
THIS IS THE HIGHEST SCORE TODRV." 

318 PRINTLEFT* <RT*,12)SPC<6);CHR*(18);" 
HIT RNV KEV TO PLRV RGRIN " 

320 WRIT197,64 

330 GETQ*:IFQ*=""THEN330 

340 SC=0 
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350 TM=220 
360 GOTO110 
370 : 

3S0 END 
390 : 

480 DflTfl" FOUR GREEN TURTLES " 

410 DATA" LONG GREEN PENCIL " 

420 DflTfl" THE WHEEL IS ROUND " 

430 DflTfl u THE BOOK IS NOT HEAVY " 

440 DflTfl 1 ’ THE LEAF IS GREEN " 

450 DflTfl" LOOK AT THE TREE " 

460 DflTfl" PICK UP THE RABBIT " 

470 DflTfl" EXTEND THE LADDER " 

480 DflTfl" THE KITTEN IS UP fi TREE " 

490 DflTfl" WE WAITED fl LONG TIME " 

500 DflTfl" WE DASHED THROUGH THE GATE " 
510 DflTfl" THE UMBRELLA IS OPEN " 

520 DflTfl" THE UMBRELLA IS CLOSED " 

538 DflTfl" THE BOOK IS TOO HEAVY " 

540 DflTfl" THE SHOP IS CLOSED " 

558 DflTfl" OPEN THE CUPBOARD " 

560 DflTfl" RAPID READING RESEARCH " 

570 DATA” ELEPHANTS ARE LARGE MAMMALS 
580 DflTfl" THE GRASS IS VERY GREEN " 

590 DflTfl" THE RIVER IS FAST AND DEEP " 
600 DflTfl" GREY COMPUTER PERIPHERAL " 
610 DflTfl" COMF'LETLV CORRECTED " 

620 DATA" RESEARCH AND DEVELOPMENT " 
630 DflTfl" UNTANGLE THE KNOT " 

648 DATA" FIERY RED FIRE ENGINE " 

650 DflTfl" CROSS EXAMINE THE WITNESS " 
668 DATA" HOLD UP THE MIRROR " 

678 DflTfl" fl LONG RUN OF LUCK " 

680 DflTfl" THE SPANIARD OWNS fl DOG 
690 DflTfl" SMALL PIECES OF BUTTER " 
10000 REM SET UP SOUNDS 
13010 30=54272 

10020 FGRT=0TQ2S : POKESO+T,0 : NEXT 
10030 POKESO+1,20 : REM PITCH 
10040 PQKESO+5,9 : REM flTTACK/DECAY 
18050 P0KES0+6,240 : REM SUSTflIN/RELEfiSE 
10060 P0KES0+24.115 ; REM VOLUME 
13070 POKESO+4,16 :REM WAVEFORM 
10880 RETURN 
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Area Estimation 



This game might also be called ‘little boxes’ as you are going to 
have to decide how many small boxes are required to fill the area of 
a large rectangular box. 


Howto play 

Type in the names of the 2 players, pressing RETURN after each 
name. 

The computer will then show you a large rectangular box with one 
small box set in a corner. 

You must now decide how many small boxes you require to fill the 
larger box. 

Type in your estimated number and press RETURN. 
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If you are wrong the computer will fill in one line on the upright 
(perpendicular) side of the box and ask you to estimate again on 
the totals required. 

If you still don’t estimate correctly then the bottom line 
(horizontal) will be completed. 

You should now be able to estimate the total by multiplying the 
two columns together. 

Should you get it right this time you’ll get a ‘happy’ bleep from your 
computer and you will move on to the next shape. A wrong answer 
at this stage will mean that the computer will fill in all the boxes and 
ask you again for the total. The computer will not let you move on 
until you have provided the correct results. The first player to 
reach a score of 10 wins the game. 


Programming Hints 

You can make the game a little easier by reducing the numbers in 
lines 90 and 110. 


Program 


10 REM % $ ###$$#$##$$# % # # $ # # # 

20 REM * * 

22 REM * AREA ESI I MAT IOH $ 

24 REM % # 

25 REM 

30 AT*=CHR.$ < 1 ?) : FORT =1TG6 : AT$=AT*+AT* TIE 
XTT:AT*=CHR*<19)+AT* 

32 PGKE53280, 0 '■ PQKE53281,0: PRINTCHR*< 158 
) 

35 GOSUB10060 

40 PR1NTCHR*<147):PRINTLEFT*<RT*,10 > SPC < 
2)"WHAT ARE THE PLAVERS NAMES? n 
50 PRINTLEFT*CAT*,12)SPC <3); : I NPUT "PLAVE 
R 1 ";P$<i> 

60 PRINTLEFT*<AT*,14)SPC<3); : INPUT"PLAVE 
R 2 " > P*<2) 

70 PRINTCHR*<147)- 
90 HT«INT<RNDa>*16)+3 
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110 WT=INTCRNBCl)*30)+3 
112 F0RT=1T0HT 

114 PRINTLEFTSCRTS,3+T)SPCC4>;CHRSCl80) 
116 PRIHTLEFTSC ATS,3+T)SPC C 4+WT )CHR$ (18 
0 ) 

120 HEXTT 

138 FORT=iTOUT : PRIHTLEFTSC RTS,3)SPG C 3+T ) 
CHRSCl75) : NEXTT 

134 PRIHTLEFTSCRTS,2+HT)SPCC4);CHRSC204) 

135 PRIHTLEFTS<RTS,3+HT)SPC <4)JCHRS C 204) 

136 PR I HTLEFTS C RTS,3+HT)SPC C 5) i CHRS C 204) 
140 F0RT*3T0WT;PRIHTLEFTS C RTS,3+HT)SPC C 3 
+T);CHRSC175):NEXTT 

190. F0RH=1T02 

200 PRIHTLEFTSCRTS,22)SPCC6);PSCH);", HO 
14 MRNV SMALL SQUARES " 

205 PRIHTLEFTSCRTS,23)SPCC7)" IH THE LRR 
GE RECTANGLE" 

207 PRIHTLEFTS CRTS,24)SPC C 7)" 

ll • 

210 PRIHTLEFTSCRT$,24)SPC<7); •' INPUTAHSS 
212 IFVAL C RNSS)=0THEN205 
215 AHS=VRLCRHSS) 

220 IFANSsWT#HT THEN 266 
230 : 

240 WA=WR+1 
258 GOTO320 
260 ; 

270 SCN)=SCN)+4-WA 
275 PRINTCHRSC147) 

280 PRIHTLEFTSCRTS,1)SPC<4)PSC1);SCl) 

281 PR I HTLEFTS < ATS, 1) SPC C 24 ) F'S C 2) j S C 2) 

282 IFSC1)>90R SC2)>9 THENTHEH GOTO 700 
290 WR=0 

300 00TD93 

320 IFWA>1 THEH GOTO380 

330 GOSUB600 

370 GOTO508 

380 IFWA>2THENGOTO430 

390 GQSUE620 

428 GOTO508 

430 IFWA>3THENGQTO500 

440 GOSUB6S0 

500 NEXTN 

518 GOTO198 

600 PRIHTLEFTS CRTS,2+HT)SPC C4> CHRS <108) 
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602 PRINTLEFT$<RT$,3+HT>SPC < 4)CHR*(108> 
685 F0RT=2T0WT:PRIHTLEFT$(RT$,3+HT)SPCC3 
+T)CHR$<183) 

607 POKESO+1; 10+T: FQRBL* 1T038 •• NENTBL: POK 
ESO+1,8 

610 PRINTLEFT$(RT$,2+HT)SPC <3+T)CHR*<175 

):NEXTT 

615 RETURN 

620 F0RT=1TQHT~2 

630 PRINTLEFT* <RT$,3+T >SPC < 4)CHR$(108) 
648 PRINTLEFT* <fill,3+T)SPC (5)CHR$ <1S3) 
645 POKESO+1 .• 10+T: F0RDL= 1T033: NEXTDL: POK 
ESO+1/0 
650 NEXTT 

655 PRINTLEFT*<RT$,2+HT)SPC <5)CHR$<i08 >: 
RETURN 

660 FORTT=lTOHT 

665 F0RT= 1TOWT •' POKESO+1,18+T+TT 

670 PR I NTLEFT* ( AT* ,.3+TT) SPC (3+T) CHR$ C188 

)=NEXTT:NEXTTT 

675 POKESO+1,0 

688 RETURN 

700 GOTO780 

18880 REM SET UP SOUNDS 
10010 S0=54272 

10020 F0RT-8T028:POKESO+T,0 = NEXT 
10340 POKESO+5,9 : REM RTTRCK/DECRV 
18050 P0KES0+6,248:REM SUSTRIN/RELEflSE 
10868 P0KES0+24.. 15 : REM VOLUME 
10878 POKESO+4/33 : REM WAVEFORM 
18080 RETURN 
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Number Series 






This is a game where you have to think ahead and predict the next 
numbers to appear on the screen. 


Your computer will start to print a string of numbers such as 11,22, 
33, 44 and will then stop and ask you to predict the next numbers 
which are, of course, 55. 


How to play 

As soon as you think you know the next number, press any key to 
stop the sequence then type in your answer and press RETURN. 

The correct answer will be rewarded by scoring a point on the 
board and a wrong answer will mean that the computer will show 
you the right number before moving on to the next string of 
numbers. Remember that the quicker you stop the sequence, the 
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more points you score. As soon as you reach 50 points, the 
computer will stop and give you your average score. 


Programming Notes 

As the program is set to choose numbers at random you may 
sometimes get the same series twice running which is lucky for you 
as you should know the right answer. 


Program 


10 REM 

28 REM # * 

22 REM * HUMBER SERIES * 

24 REM * # 

9 FI P E f '1 $ $ & $ if $ if if if $ if $ if if if; if $ if if if if 

27 POKE53280.2 : F0KE53281, 6 
38 RT»*CHR$<17) : FQRT=1T0S:RT$=flT$+RT£:HE 
XTT ; RT$=CHRf(19)+flT $ 

35 GOSUB10080 
48 TR=0 
58 SC=8 

52 PRINTCHR$<147> 

53 PRINTLEFT*<RT$,1)SPC(7>;CHR$<5>;"H U 


M B E R SERIES” 

54 PRINTLEFT*< 3T$, 3)SPC < 


CHR$ ( 


•Jci / 


! K l C 


S: "CHR$<5)TR 

55 PRINTLEFT$ <RT$,3)SPC <25,CHR$ <152)”SCO 
RE:"CKR$a58);SC 

56 IFSC>=50THEN6OTO300 


cr *7 

68 PR I NTLEFT* < RT$, 6) SPC (5) CHR$ (18HIT 
FiHV KEY TO MRKE R GUESS " 

61 IFSO=50THENG0T0388 

j^2 C;C; J 

7G R=INT< RHB(1)*30)-15 
88 IFR=0THENGQTO70 
90 IFR<0THENSST=100 

95 P0KES0+1.10+SST:P0KES0+4.17:F0RDl=1TO 

180 : NEXTDL•P0KES0+4.16 

180 PRINTLEFTf<RT$.18)SPC <5 > SST” «i 

110 F0RJ=1T05 

112 FORBL=1TO700 ; HEKTDL 
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114 GETA$ 

116 IFfi$<>""THEHGOTO145 
120 SST=SST+R 
130 PRINTSST" 

132 P0KES0+1,10+S3T:P0KES0+4,17:F0RDL=1T 
0100:NEXTDL = P0KES0+4,16 
140 NEXTJ 

145 PRINTLEFT*<RT*,i3)SPCCl);CHR*C5); =WR 

IT137,64 

150 PGKESO+4,16 

155 INPUT" WHRT IS THE NEXT NUMBER"; Pi 
NS 

160 TR=TR+1 

178 IFfiHS = SST+RTHEHG0T0233 
180 : 

190 PRINTLEFT*<RT$,20)SPC(8)CHR$<158);"T 
HE NEXT HUMBER IS "SST+R 
200 F0RBL=ITCH003 = NEXTBL 
210 PRINTCHR$<17)“ ";CHR$<18);" PRES 
S RNV KEV TO CONTINUE " 

215 GETKY*=IFKV$~""THEH215 
228 G0T052 

230 PRINTLEFT$<AT*,20>SPC<14);CHR*<158); 
"CORRECT!" 

240 SC=SC+7-J 

250 FORDL=1TO1000:NEXTDL 

252 PRINTCHR*<17);CHR* < 30);" "CHR$ <1 

8);" PRESS RNV KEV TO CONTINUE 

255 GETKV*:IFKV*=""THEN255 

260 G0T052 

380 ; 

360 PRINTCHR$<147) 

370 PRINT L EFT* <RT$,10)SPC< 4)"YOUR RVERRG 
E SCORE WAS " 

380 PRINTLEFT$ <AT$,13)SPC < 8)SC'V "TR" « " 

SC/TR 

330 END 

18300 REM SET UP SOUNDS 
10010 30=54272 

10028 FORT=0TO28 : POKESO+T,0 : NEXT 
10830 POKESO+1,20:p j~CH 
18040 P0KE30+5,9 : REM ATTRCK/BECRV 
18858 P0KES0+6,248:REM SUSTfiIN/RELERSE 
10860 P0KES0+24,15 : REM VOLUME 
18070 P0KES0+4,16 : REM WAVEFORM 
10088 RETURN 
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Morse Code 



1. SEND ME55RGE 
S. RANDOM LETTERS 
3. WORDS 



If you are planning to become a sea captain or a pilot then this is the 
game for you. Even if you are just planning to help your parents on 
a yachting weekend you will be able to show off with this one. 


There is plenty of fun here as well as you can set your own speed of 
reply to the computer; set your own messages; ask other people to 
translate what you have sent. 


Howto play 

The computer will put up on the screen a menu which is a list of 
items from which you can make a choice. Menu is 

1. Send a message 


2. Random letters 
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3. Words 

4. A to Z in morse 

The computer will ask you to choose from 1,2,3 or 4. 

You will then be asked to choose a speed which you would like 
from 1 to 100. As 100 is for professional morse code operators we 
suggest you start at 10. 

Type in 10 and press RETURN 

The computer will then ask you for your message. 

If you have chosen 1 you could type in MAY THE FORCE BE 
WITH YOU, remembering to use capitals, press RETURN and 
the computer will play the message back to you in morse code. 

When the message is complete the computer will return to the 
menu and ask you for your next choice. 

No. 2 will mean that the computer will put random letters on the 
screen whilst sounding them at the same time. If you choose No. 3, 
words, the computer will sound out a word, at the speed you 
choose, which you must identify. When the computer completes 
the word it will ask you to type in the answer. If you are right - well 
done. If you are wrong however you will hear a nasty ‘raspberry’ 
and the computer will show you the correct answer before moving 
to another word. 

Remember that your knowledge of morse code could save lives. 


Programming Notes 

The words in the program can be changed when typing in the data 
statements in lines 1050 to 1080. 

Notice how the morse code is stored in lines 1100 to 1130. 
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Program 

10 REM # 'M # $ $ : M $ :f: if: # $ # if: $ % Wfdfdf. $ # 

20 REM * * 

22 REM * MORSE CODE * 

24 REM * * 

25 rem wmmwwwmmmw* 

30 fiT*=CHR$C17) : F0RT=1T06 : fiT'$=RT*+RT$ : HE 
XTT : RT*=CHR*(19)+RT* 

35 P0KE53288 , 7 : P0KE53281.. 6: PR I NTCHR* (5) 
40 DIMM*(26) 

42 DIMW*<20) 

44 DIMC*C26) 

50 FOR,T= 1T026: RERDM* < J): NEXT J 
60 FORJ=1T020:RERDM*C J >:NEXTJ 
70 FORJ=1T026=RERDC*CJ):NEXTJ 
72 GOSUB10000 
80 PRINTCHR*<147) 

82 PRINTLEFT*CRT*,2)SPC<14)"MORSE CODE" 
85 PR I NTLEFT* (RT*, 3) SPC C14 ); : FORT=l TO 10: 
PRINTCHR*<196); : NEXTT 
90 PRINTLEFT* < RT*,6)SPC(10)"1. SEND MESS 
ROE" 

100 PR I NTLEFT * < RT*,8) SPC <10 >" 2. RANDOM L 
ETTERS" 

110 PP.INTLEFT* (RT* ,10) SPC(10)" 3. WORDS" 
115 PRINTLEFT*CRT*,12)SPCC10)" 4. PRRCTIC 
E " 

120 PRINTLEFT*< RT*,14)SPC Cl0)CHR*C18);" 
PRESS 1,2,3 OR 4 " 

130 GETfl* : IFR*=""THEN130 

136 POKESO+1,10 : P0KES0+4,33 : FORDL=1TO10 : 
NEXTDL : P0KES0+4,32 

137 IFfl$="4"THENGOTO80O 

140 IFfi$<"1"ORR*>"3"THEN138 

141 PRINTLEFT* C RT*,16 > SPC C10); 

142 INPUT"SPEED (5 TO 50) ";SP 

143 IFSP>50 OR SP<5 THENG0T0141 
145 PRINTCHR*C147) 

148 PRINTLEFT* C RT*,1)SPC C12)"SPEED "JSP 
150 IFfl*<>"1"THENGOTO170 
160 GOTO400 

170 IFR*O"2"THENGOTO190 
180 GOTO590 
200 : 

215 FORN=1TO10 
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216 PRINTCHR*<147> 

217 F'R I NTLEFT* < AT*, 1 > SPC C12)" SPEED "JSP 
220 R=INT<RND<n#20) + l 

239 F0RJ=1TOLENCW*<R>> 

249 L*=MID*CW*CR>,J,1> 

245 IFL*=" ” THENGOTO300 
256 L=A8C<L*)-S4 

269 F0RK=1TOLEN(M*(L)) 

265 P0KES0+1,0:PQKESQ+4,33 

267 N0=1+VAL(MID*(M* <L), K, 1))t2 

270 P0KES0+1,35:F0RDL=1TOSPfcNO=NEXTDL=P0 
KESO+1,0 

275 FORDL= 1 T05#SP : NEXTDL 
280 NEXTK 

290 FORDL=1TO130+SP:NEXTDL 
300 NEXTJ 

395 PRINTLEFT*(AT*,3)SPC < 5 > j 
308 INPUT"WHAT WAS THE W0RB";Q*<1> 

310 I FQ* (1) 014* < R) THENG0T0316 
312 : 

314 PRINTLEFT* < AT*,8 >SPC <12)"CORRECT!" 

315 G0T0318 
^16 • 

317 PRINTLEFT*<AT*,6 >SPC <13 >"WRONG!" 

318 PRINTLEFT* < AT*,8 > SPC <10}"THE WORD Wfi 

gu 

319 FORT =1TOLEN(W*C R) > 

329 PRINTLEFT*<AT*,10+T)SPC(1 0 >MID*<14*(R 
),T,1>,C* <ASC<MID* <14*CR >, T, 1>)-64) 

325 NEXTT 

339 FORDL=1TO1000 : NEXTDL 

334 PR I NTLEFT* <AT*, 27 >CHR* Cl 8 >;" PRESS 
ANY KEY FOR THE NEXT WORD " 

335 WAIT197,64:GETQQ*:IFQQ*=""THEN335 

340 NEXTN 
350 G0T089 

400 PR I NTLEFT * < AT*, 4) SPC CSV WHAT IS YOUR 
MESSAGE? " 

402 PRINTLEFT* C AT*,6)SPC <8);:INPUTI* 

404 IFI *>" Z" OR I *•<" A" THENPRI NTLEFT * C AT *, 1 
7)SPC< 2) "CAPITAL LETTERS,PLEASE"=GOTO400 
410 F0RJ=1TOLEN<I*> 

420 L*=MID*CI*,J,1) 

422 IFL*=" "THENFORDL=1TO200 : NEXTDL = GOTO 
500 

424 IFL*<"A"ORL*>"Z"THENG0T0518 
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430 L=ASCCL$)-64 
440 FORK=1TOLEN<M$CD) 

445 P0KES0+1,0 : P0KES0+4,33 

447 H0= 1 + VfiL<MID$<MfCL),K, 1)> 12 

450 P0KES0+1,35:F0RDL*1TQSP#N0:NEKTDL : PO 

KESO+1,0 

455 FORHL=1T05#SP:NEKTDL 
460 FORDL=1TO20:NEKTDL 
470 NEKTK 

474 PRINTLEFTfC ATf,10)SPC<7+J); L$ 

4S0 FORDL=1TO130-SP:NEKTDL 
500 NEKTJ 

510 FORDL=1TO500:NEKTDL 
530 GOTOS0 

590 PRINTLEFTf <AT$,4)SPC C 0); 

600 FGRJ=1TO100 

605 IFJ/20=INT CJ720)THENPRINTCHRf C147);" 

SPEED";SP:PRINTCHRfC17) 

610 R=INT<RND<1)#26)+1 

620 PRINT" ",Ch'RfCR+64),C$CR) 

630 FORK=1TOLEN < M$ < R)) 

635 POKESO+1,0=P0KES0+4,33 

637 N0=1+VflLC MIDf C M$C R),K, 1))12 

638 IFNO<2THEN650 

640 PQKESO+1,35 = FORDL= 1 TOSF'*NO: NEKTDL = PO 
KESO+1,0 

650 FORDL=1T05#SP:NEKTDL 
660 NEXTK 

670 FORDL=1TO138-SP:NEKTDL 
6S0 NEKTJ 

690 FORDL=1TO500:NEKTDL 
700 PRINTCHRfC147) 

710 G0T088 

800 REM MORSE TFiPPER USING F7 

801 PRINTCHRf<147):PRINTLEFTfC RT$,8)SPC C 
8)"USE "CHRfClS); 

802 PRINT"F7"CHRf <146)" FOR MORSE TAPPER 

II 

803 PRINTLEFTfCAT$,12)SPC<8)"USE "CHR$C1 
8); "SPACE BAR"CHRfC146).;" TO STOP " 

805 POKESO+1,0:POKESQ+4,33 
810 GETMOf:IFMOf=""THENPOKESO+1,0 : G0T081 
0 

815 IFMO$=CHR$C 32)THENG0T088 

820 IFMO$=CHR$<136)THEN POKESO+1,33 

830 WAIT197,64 : GOTO810 
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1000 BATA"1300", "3111","3131";"3110";"10 
00".. "1131"; "3310" 

1010 DflTR"11i1"; "1100" ; "1333" ; "3130" ; "13 
11";"3300";"3100" 

1020 DATA"3330";"1331";"3313";"1310";" 11 
10";"3000";"1139" 

1030 DATA" 1130";" 1333"" 3113";" 3133"" 33 


11 " 

1050 DATA" DEL ICATESSEH"" NECESSI TV"" DEL 
ICIOUS"; "PREHISTORIC"; "GOURMET" 

1060 DATA "PHILOSOPHER""PRECIOUS", "DISSE 
CT""AGRICULTURE"; "SEMAPHORE" 

1370 DATA" DIFFI CULT".." BUS I NESS 1 V MOHfiSTR 
V";"FRAGILE";"ALPHABET" 

1080 DATA"DAFFODIL";"KNOWLEDGE";"THROUGH 
";"PINEAPPLE";"KANGAROO" 


1110 DATA" 


1128 DATA" mm ms a mm " " a aai magi n" 


1130 DATA" a a a m " .. " a on rasas " 11 ms a a ms " ; 
11 ona i EBa n 11 .< 11 sags mi s s 1, 

10000 REM SET UP SOUNDS 
10010 30=54272 

10020 FORT=0TO28:POKESO+T;0 : NEXT • 

10030 P0KES0+1,20=rem PITCH 
18040 POKESO+5,9 : REM ATTfiCK/DECflV 
10050 P0KES0+6..240 : REM SUSTAIN/RELEASE 
10060 POKESO+24; 15 •' REM VOLUME 
10070 POKESO+4;16 : REM WAVEFORM 
10090 RETURN 
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Areas 



This game is a bit of a brain teaser and might drive you mad before 
you start to get it right. To begin with you might even need a pencil 
and some paper but really that is a bit of a cheat. 


The object is to work out the total area of a rectangle and a triangle 
- together. Your parents will be highly impressed when you can tell 
them how much carpet they need for that funny shaped room 
upstairs. 


Howto play 

You will be asked ‘One or two players?’ 

Type in 1 or 2 and press RETURN 

You will then be asked for the player’s, or players’, names. 
RETURN as before. 
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The computer will then show you a green rectangle with a red 
triangle on top. You will be given the length of three of the sides 
and asked to work out the total area. 

If you do not get the answer correct first time the computer will 
then ask you to give the area of the rectangle first. If you answer 
this part correctly you will then be shown the triangle again and 
asked for its area. If either part of your answer is wrong the 
computer will give you the correct total area sum. 

If you get the answer right first time, clever clogs, you will be given 
two points but if you answer in two halves you will get only one 
point for your correct answers. 

To help you bend the rules the formula for area is 

CxB + !/2Bx(A-C) 


Program 


10 REM *********** 

20 REM * * 

22 REM * AREAS * 

24 REM * * 

25 REM *********** 

27 AT£=CHR£ Cl?) : F0RT= 1T06 : AT£=AT£+AT£ ■' NE 
HTT : AT £=CHR£ (19)+AT£ 

30 PRINTCHRfC147):G0SUB10000 

35 POKE53230,6: P0KE53281 .■ 15 

60 INPUT"1 OR 2 PLAVERS";N 

70 A£=CHR£(18):F0RT=1TQA : A£=A£+" ":NEXTT 

'• A£=A£+CHR£ C146) 

72 FORT=1TOB : PRINTLEFT£CAT£;23-T)SPC<1)A 
£ : NEXTT 

80 PRIHTLEFT$(AT£ j10)SPC C 2)"WHAT ARE THE 
PLAYERS NAMES?" 

90 F0RJ=1T0N 

100 PRIHTLEFT£CAT£/12)SPC<4)"PLAYER";J 
110 PRINTLEFT£ C AT£,14)SPCC 4) i ■ INPUTP*C J) 
120 NEXTJ 

122 F’RIHTCHR£C 147) 

130 FORL=1T0N 

140 A=INT CRND(1)*10)+2 

150 B=INT C RNDCl)*8)+3 
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160 C=fl+B 

162 IFC>=24THENOOTO140 

170 R$=CHR$<30)+CHR$(18):FORT=lTQR:fi$=fi$ 

+" "=NEXTT=RS=fi$+CHRS(146) 

175 CS=CHRS< 28)+CHRS(18)+CHRS(168) : FORT= 
1TOfl-1:CS=C$+" "=NEXTT : CS=CS+CHRS<146) 
177 X=13+C/2 

180 F0RT=1TOB:PRINTLEFT*(RTS, X-T)SPC<5)R 
: NEXTT 

185 FORT=BTOC = PRINTLEFT*(RTS, X-T)SPC(5+ < 
T-B))LEFTS(CS,LEM (CS)-( T-B)-1):NEXTT 
240 PRINTLEFTS<ATS,X-(BX2>)SPC(2-1NT(BX1 
0))B 

250 PRINTLEFTS(RTS,13)SPC(5+A)C 
260 PRINTLEFT$(RTS,X+1)SPC(4+R/2)R 
262 GOSUB650 

265 PRINTLEFTS(RTS,6)SPC(25)PS(L) 

270 PRINTLEFTS(ATS,7)SPC(24)"WHAT IS THE 

ll 

275 PR I NTLEFTS (RTS, 8) SPC (24)" TOTAL RRER? 

ll 

280 PRINTLEFTS(RTS,10)SPC(24);:INPUTRNS 
290 I FRNS=fi*B+fl/2* (C-B) THENG0TO550 
310 FORSL=50TO1STEP-1=POKESO+1,SL : NEXTSL 
:POKESO+1,0 
312 G0SUB658 

315 PRINTLEFT*(RTS,6)SPC(24)PS(L) 

320 PRINTLEFTS(RTS,7)SPC(24)"WHRT IS THE 

ll 

325 PRTNTLEFT$(RTS,8)SPC(24)"AREA OF THE 

It 

327 PRINTLEFTS(RT$,9)SPC(24)" RECTANGLE? 

II 

330 PRINTLEFTS(RTS,10)SPC(24); :INPUTRC 
340 IFRC=R$BTHENGOTO370 
350 FORSL=50TO1STEP-1 : POKESO+1,SL : NEXTSL 
:POKESO+1,0 

360 PP. I NTLEFTS (ATS,14) SPC (21)" THE RRER 0 
F THE" 

365 PRINTLEFT$ < RTS,15 > SPC(21)" RECTRNG 

LE " 

367 PRINTLEFTS(RTS,16)SPC(21)" IS "Jfl 

#B 

368 FORBL=1TO1000 : NEXTBL 
370 GOSUB650 

372 PRINTLEFTS(RTS,7)SPC(24)"WHRT IS THE 
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375 PRINTLEFT*(AT*,8)SPC(24)"AREA OF THE 

II 

377 PRINTLEFT*(AT*,9)SPC(24)" TRIANGLE ? 

II 

380 PRINTLEFT*(AT*,10)SPC(24);:INPUTTG 
390 IFTG=AX2*(C~B) THEN G0T0428 
480 : 

410 FORSL=50TO1STEP~1:POKESO+1,SL:NEXTSL 
:POKESO+l/0 

411 PRINTLEFT*(AT*,14)SPC(21)"THE AREA 0 
F THE " 

412 PRINTLEFT*< AT*,15)SPC(21)" TRIRNGL 

E " 

417 PRINTLEFT$(AT*,16)SPC(21)" IS " i A 

X2*(C-B) 

418 FORBL=1TO1000:NEXTBL 

420 GOSUBS50 

421 PR I NTLEFT* (AT*, 7) SPC (24) "WHAT IS THE 

II 

422 PRINTLEFT*(AT*,8)SPC(24)"TOTAL AREA? 

II 

430 PRINTLEFT*(AT*,10)SPC(24);:INPUTANS 
448 IFANS=fl#B+A/2#(C-B)THENGOTO470 
458 FORSL=50TO1STEP-1:POKESO+1,SL : NEXTSL 
:POKESO+1,0 
460 GOTO500 

470 F0RQ=1T04 = FORT=1TO10 = F0RTT=1T05 = POKE 
SO+1,Q#T#TT:NEXTTT,T,Q:POKESO+l,0 
480 S(L)=S(L)+1 
490 G0T05S2 

500 PRINTLEFT*(AT*,14)SPC(23)"THE TOTAL 
AREA " 

502 PR I NTLEFT* (AT*.. 15) SPC (23)" IS" A*B+ 

A/2#(C-B) 

504 FQRDll= 1 TO 1000: NEXTBL 
506 F'RINTCHR*( 147) 

510 GOTO570 

550 FORQ=1T04:FORT=1TO10:FORTT*1T05:POKE 
SO+1, Q#T#TT : NEXTTT, T, Q: POKESO+1,0 
560 S(L)=S(L)+2 
562 PRINTCHR*(147) 

570 PRINTLEFT*(AT*,1)SPC(4)P*Cl);" :"S(1 
) 

575 PRINTLEFT*(AT*,1)SPC(24)P*(2);" =" j S 
(2) 

580 NEXTL 
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600 GOTO130 

650 F0RT=5T022:PRINTLEFT$(RT$, T)SPC<21)" 

":NEXTT:RETURN 
10000 REM SET UP SOUNDS 
10010 S0=54272 

10020 FORT=0TO28:POKESO+T,0:KENT 
10040 POKESO+5,9 : REM PTTflCK/DECflV 
10050 P0KES0+6^ 240 : REM SUSTAIN,•■'RELEASE 
10060 P0KES0+24;15 : REM VOLUME 
10070 POKESO+4,17 : REM WAVEFORM 
10080 RETURN 
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Missing Letter 



If you are one of those poor souls who are always being told by 
someone that you miss letters in words don’t worry too much 
because it’s supposed to mean that you are clever and that your 
brain works faster than your hands. However, it’s not a good idea 
to go on doing it so we have invented this game to help you. 

Words are going to appear on the screen and you are going to have 
to spot the missing letter. 

An example 

sper should be spear 


Howto play 

Your computer will ask you 1 or 2 players? 
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Type in 1 or 2 and press RETURN. 

In the middle of the screen will appear a word with a letter missing. 

To complete the word you press the letter of your choice. 

It is not necessary to press the RETURN key 

If your answer is correct the computer will tell you that your 
decision was correct, award you a number of points depending on 
the speed of your response and move on to the next word. 

Wrong answers will mean no points and the computer will move on 
to the other player - if there are two playing. 


Programming Notes 

It is possible to change the words used in the program by replacing 
those in the data statements of lines 350 to 440 with your own 
selection. If you increase the number of words though, change the 
50 in lines 60,90 and 190 to match the total number of words. 


Program 

10 REM ####$#### % # %##% % %$$% # 

20 REM * * 

22 REM * MISSING LETTERS * 

24 REM * # 

25 rem 

30 FlT$=CHR$< 17):F0R.T=1TQS : RT$=flT$+RT$ : HE 
XTT : RT$=CHR$ (19)+RT$ 

32 PRINTCHR$<147) : GOSUB10000 

35 PQKE53280,7:P0KE5328 1,14:PRINTCHR$<14 

4) 

40 PR INTLEFT* < flT$,2) SPC < 3) j : INPUT " ONE OR 
TWO PLflVERS ";P$ 

50 IFP$<"1"ORP$>"2"THEN40 
55 P=VflL<P$) 

60 DIMW$ < 50) : P 3 VfiL(P$) 

70 DIMSC2) 

80 Q=0 
82 IS*100 
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90 FQRJ=1TO50 
100 RERBW$(J) 

110 NEXTJ 

128 PRINTCHR$<147) 

125 PRINTLEFT*< RT$,1>SPC(12)"QUEST IOHS: 
0" 

130 F0RJ=1T0P 

140 PRINTLEFT$<flT$,3)SPC<J#20-17>;"PLflVE 
R "J; 11 : 0" 

150 NEXTJ 
160 Q=Q+1 
170 F0RJ=1T0P 

130 PRINTLEFT$<AT$;3)SPC<J#20-17); "PLflVE 
R "J;": ”;SCJ) 

190 R= I NT .< RNB < 1) #50)+1 
200 R1=INT<RND<1)#5)+1 
210 B$=MIB$<W$(R), 1,R1-1)+MIB$<W$<R),R1+ 
1) 

215 PR I NTLEFTf- < RT$ ,10) SPC <15);" 

It 

220 PRINTLEFT$<flT$,10)SPC<15)J" ";D$ 

222 PRINTLEFT$<flT$ill)SPC<15);" 

II 

224 PRINTLEFT# < flT$,9)SPC <15)J” 

II 

230 PRINTLEFT# < AT*,16)SPC <12);"MISSING L 
ETTER?" 

235 WRIT197;64 
240 GETR* 

250 IFfl$=""THENIS=IS-0.5:GOTO240 
252 CB=flSC<fl*+CHR$<0)) 

254 IFCB>=97 THENGOTO260 
256 P.EM fl$=CHR$(CB+32) 

260 IFIS<10THENIS=10 

270 IF A*OM IB* < W* < R), R1,1 )THENGOTO280 

272 M$=" CORRECT! " 

274 S<J)=S<J)+INT<IS/10) 

275 IS=100 

276 FORBL=1TO200STEP3:POKESO+1;BL:HEXTBL 
: POKESO+10 

278 GOTO290 

230 m=" WRONG! " 

282 FORBL=200TO1STEP-3:POKESO+1, BL = NEXTB 
L- POKESO+1;0 

290 PRINTLEFT*<RT$,20)SPC <14);M$ 

300 PRINTLEFT*<AT*,1)SPC < 22); Q 
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310 PRINTLEFT*C AT$,3)SPC <J*20-17);"PLAVE 
R 11 ‘ t J 11 : 11 I ^ ( T ) 

320'FQRDL=1T0500 : NEKTBL 

325 PR I NTLEFT$ < AT$, 20 > SF'C < 14 /" 

li 

330 POKE198,0 : NEXTJ 

340 POKE198,0 : GOTO160 

350 DATA"HORSE","STREET","DAILV","MONEY" 

,"PEOPLE" 

360 D ATA" YELLOW 'V BOTTLE'V ORANGE'V SAUC 
ER","BREAKFAST" 

370 DATA"COMPASS"/’KITTEN"/'ENGINE"/'HIS 
TORY "/'SAUSAGE" 

380 DATA "ADDRESS "/'CEILING "/'EXPERT "/'MV 
STERY"/’COMPUTER" 

3S0 DATA"PROMISE","CLOWN","MESSAGE","EAR 
LV M > M LISTEN" 

400 DATA"MAGIC","SCHOOL","TOMORROW","KET 
TLE","DETACH" 

410 DATA"MECHANIC","CYLINDER","SCIENTIFI 
C","ILLOGICAL","GIRAFFE" 

420 DATA"PARSLEY","TRIANGLE","LEGIBLE"," 
MEDICINE","PRESENCE" 

430 DATA"TRIANGLE","PENGUIN", "ALPHABET", 
"DAFFODIL","KNOWLEDGE" 

440 DATA"YACHT","FIERY","KANGAROO","RASP 
BERRY","CHRISTMAS" 

10800 REM SET UP SOUNDS 
10010 30=54272 

10020 FGRT=0TO28 = POKESO+T, Q '■ NEXT 
10048 POKESO+5,9 : REM ATTfiCK/BECAY 
18050 P0KES0+6,240 : REM SUSTAIN/RELEASE 
10068 P0KES0+24,15 : REM VOLUME 
10070 P0KES0+4,17 :REM WAVEFORM 
10080 RETURN 
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Duck Shoot 






Here is a game for your memory, your speed and your eyesight. 


You will be shown a screen full of ducks - thirty in total - and then 
you will have to solve a multiplication sum before you can shoot at 
the sitting ducks. 

Just in case you are worried about the ducks - they are not real, we 
borrowed them from a fairground. 


Howto play 

You will be asked to solve a multiplication table which will be 
selected at random by your computer. If you get the answer right 
and type in properly you will be allowed to shoot at the ducks. 

It is not as simple as it sounds however because the gun moves from 
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left to right and back again. You have to stop the gun which will fire 
on its own at the row of ducks. If you stop the gun in the wrong 
place the shot may go between a row of the ‘quackers’ and leave 
you without a score despite your correct answer to the sum. 

To fire the gun you must press the space bar. 

Your score board will show you how many shots were on target. 

The trick is to be clever - and fast. 


Program 


f M R1.11 if if if if if if if if .'f if if if if if :f if if :f if if. if 

20 REM # if 

22 REM * DUCK SHOOT if 

24 REM * f 

25 REM if if $ if if ififif if if if if if iff if if if f if if 
27 P0KE52, 48: P0KE56, 48: CLR 

30 AT*=CHR*(17) : F0RT=1TOS : RT*=RT$+flT$ : NE 
KTT : RT*=CHR*(13)+flT* 

32 POKE53280,5 : P0KE53281 , 5 

35 GOSUB7080:PRINTCHR*(147 >:GOSUB10000 

40 HT=0 : SH=0 

100 F0RJ=2T039STEP3 

105 F0RK=ST010STEP2 

110 P0KE646,K+1:PRINTLEFT*(RT*,K)SPC< J)C 
HR*<35);CHR*(3S> 

115 NEXTK 
120 NEXTJ 

130 M1 = INT (RHD (1) :f 12 > +1 
140 H2=INT(RHDa>fl2) + i 
145 PR IHTLEFT $ (RT* ,19) SPC (8) CHR* (144);"W 
Hfii is ";chr$(5);ni;chr$< 144); 11 x "Chr*< 
5);N2 

147 PRINTLEFT*(RT*,21)SPC(8)" 

ii 

149 PRIHTLEFT*(RT*,21)SPC(8 )i 

150 INPUTRNS* 

155 IFVfiL(RN3*)<1 THEN00T01S5 
157 fiN3=VfiL(RHS*) 

169 IFfiNS=Nl*H2 THEHGOTO200 
165 P0KESG+1,50 = P0KES0+4,33:F0RDL=1TO30 : 
HEXTDL:P0KES0+4,16 
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170 GOTO145 
200 CC=1 
210 CD=1 

215 P0KES0+1,28:P0KES0+4,33 : FORDL=1TO30 : 
NEXTDL 

217 PRINTLEFT*<RT*, 19 > SPC <8)" 

n 

218 PRINTLEFT*(RT$,28)SPC(5 >” 

il 

219 PRINTLEFT*<RT*,21)SPC C 5)" 

ti 

220 PRINTLEFT*<RT*,18>SPC<CC>" " 

238 CC=CC+CD 

235 P0KES0+1, 18+CC 

240 IFCOS9 0RCCC1 THENCIN-CD 

250 PRINTLEFT*<RT*,18)SPC(CC)CHR*<37 > 

260 GETKV*:IFKV*0" "THEHGOTO220 

278 SH=SH+1 

275 POKESO+4,129 

280 F0RJ=17T05STEP-1 

285 P0KES0+1,J 

287 S=PEEK<984+40#J+CC> 

290 IFS=350RS=36 THENGQTO330 

300 PRINTLEFT*(AT*,J)SPC(CC >"."J 

305 PRINTLEFT* <AT*,J)SPC<CC)" "J 

310 NEXTJ 

314 P0KES0+4,128 

328 GOTO380 

330 P0KES0+4,17 = FQRB=1TO 10 

340 POKESO+l,B:FORDL=40TO60STEP2 : POKESO+ 

1, BL : NEXTDL 

350 HEXTB : PQKESO+4,16 

360 PRINTLEFT*CRT*,J)SPC(CC-1)" 

370 HT=HT+1 

388 PRINTLEFT*<AT*,1>SPC<4 >CHR*(144);"SH 
OTS= "SH" HITS: "HT 

385 PRINTCHR*<19> 

395 PRINTLEFT* <RT*,18)SPC(CC)" " 

400 IFHT=39THEN END 
418 GOTO130 

7000 REM ### READ IN BfiTfl ### 

7020 P0KE56334,PEEK <56334 >RNB254 

7030 POKE1,PEEK <1)RND251 

7048 FORI=0TO511 : POKE12283+I,PEEK(53248+ 

I>:NEXTI 

7058 POKE1,PEEK <1>0R4 : P0KE56334,PEEK(563 
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4) OF 

1 




@63 

FORI=0T 

J>:3 ; 

PEREA : F 

’0KE12568+I ■ H : HEX'i 

895 

P0KE532 

72.. ( 

PEEK(SC 

5272)fiNIi240)H"12 

100 

RETURN 




000 

DATA 28 

; f\ ( 

254,31, 

1 0 t 15 .« ( -I' i U ; <0 j cv4 C> 

cr. cr 

254,252 

: 

,240 


1010 

DATA0,2 

4,24 

,60,25: 

5.. 255.. 255 .> 255 


10080 REM SET UP SOUNDS 
10010 80=54272 

10920 F0RT=9T028 ; POKESO+T,9 : NEXT 
18930 POKESO+1,20:REM PITCH 
10040 POKESO+5,9 : REM ATTACK/DECriV 
18050 P0KE80+S,240 : REM SUSTRIN/RELEfiSE 
1@060 P0KES0+24,15:REM VOLUME 
10070 POKESO+4,16 : REM WAVEFORM 
10080 RETURN 
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Missing Numbers 



46 77 * 139 



A competition designed to see who is quickest between two players 
at working out the missing number. You can play on your own but 
it’s no fun if there isn’t anyone to show off to. 


You’ll be given a selection of sums and you will have to provide the 
number that has been replaced by a question mark. 

Examples: 

234+ ? =563 

? - 56 = 834 

169- 73= ? 
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How to play 

You will be asked the players’ names which you type in, and press 
RETURN 

The computer will then ask you a question of the type shown 
above. 

Type in your answer and press RETURN 
Players will be asked questions alternately. 

A wrong answer will mean a ‘raspberry’ buzz and the next question 
will move to your opponent. 

Scores are shown on the screen. 


Program 


10 REM ^. :, k^^^^^sk 
20 REM # * 

22 REM * MISSING HUMBER # 

24 REM sft $ 

25 REM 3ff*ifs**$ijs**if:‘#jft!iEi|55Nf*3!e*!f«i|£ 

30 AT*=CHR*<17} = F0RT=1T06 : AT$=AT*+AT* : HE 
NTT : AT*=CHR*a9>+AT* 

32 GOSUB10000 : POKE53280,5 : P0KE53281,2 
35 PRINTCHR*(147) 

40 PR INTLEFT* ( AT*.. 8 > SPC (4 >" WHAT ARE THE 
PLRVERS NAMES?" 

70 INPUT " PLOVER ONE: ";R$a> 

75 P*(1)=CHR*(159)+P* a> 

80 PRINTLEFT* ( AT*,12)SPC ( S >"PLAVER ONE: 
";P*a);CHR*(144) 

85 P0KES0+1,40: FQRBL= 1 TO 10.0: NEXTDL: POKES 
0+1 ; 0 

90 INPUT" PLAVER TW0 : ";P*<2> 

95 P*(2 >=CHR*( 5)+P*(2) 

100 PP. I NTLEFT* (AT*.. 16>SPC(6> "PLAVER TWO: 
"P*(2) 

110 P0KES0+1,35:F0RDL=1TO100:NEXTDL : POKE 
SO+1..0 

120 F0RBL=1T0288:NEXTDL 
125 PRINTCHR*(147) 
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130 P0KES0+1,45 : F0RDL=1TO100 : MENTBL : POKE 

SO+1,8 

180 MAN=89 

190 MIN=18 

2001 F ORC= 1T 02 

210 R (1) = INI< RND(1)$MflK)+MIN 
220 R ( 2) = I NT (RHB ( 1} *:1RK) +111H 
230 3IG=INT(RND(1)$2) 

240 IFSIG=0THEH81G=-1 

250 R ( 3 ) =r (i) j-r ( 2 } $3iQ 

255 IFR(3X8 THENG0T0210 

260 R=INT(RNB (1)$3) +1 

270 I FR= 1THENPRINTLEFT# (AT#, 12 ) SF’C (11)" 

??" : GOTO280 

275 PRINTLEFT#(AT#,12)SPC(11);R(1) 

288 IFR=2THEHPRINTLEFT#(AT#,12)SPC(16)" 
??" : GOTO2S0 

285 PR I NTLEFT# (AT#,12) SPC (16) R (2) 

290 IFR=3THENPRINTLEFT#(flT$,12)SPC(21)"? 
? " : GOTO300 

295 PRINTLEFT#(RT$,12)SPC(21); R(3)>" " 

300 IFSIG<0THENPRINTLEFT#(AT#, 12)SPC(14) 

ii _ li 

305 IFSIG>0THENPRINTLEFT#(AT#, 12)SPC(14) 

il II 

310 PR I NTLEFT# (AT#, 12) SPC (19) ,, = " 

320 PRINTCHR#(158) 

330 PRINTLEFT#(AT#,18)SPC(3)"WHAT IS THE 
HISSING NUMBER,";P#(C) M ? 

332 PRINTLEFT#(AT#,20)SPC(7);" 

ii 

334 PRINTLEFT#(AT#,20)SPC(7);CHR#(158);" 

li 

338 PRINTLEFT#(AT#,28)SPC(7);CHR#(153); 
348 INPUTANS# 

345 IFVAL(ANS$)<1 THEN G0T0334 

350 ANS=VAL(ANS#): IFANSOR (R) THENGOT0438 

360 F0RBL=1TOI0:F0RBD=1T028:P0KES0+1,BL# 

BB : NENTBB, BL : F'OKESO+1,8 

370 PRINTLEFT#(AT#,8)SPC(13)"CORRECT!" 

388 S(C)=S(C)+1 

390 PRINTLEFT#(AT#,2)SPC(4)P#(1);": "; S< 


4@0 PR I NTLEFT# (AT#, 2 > SPC (23); P# (2 >= "; 
S (2) 

418 IFS(1)=28 OR S(2)=28 THEN G0T0478 
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428 00T0445 

430 FQRDL=18101STEP-1 : F0RBIi=1T028 : P0KES0 

+ i, DL#DD : NEKTBBBL = P0KES0+1,8 

448 PRIHTLEFT $ (RT$,6)SPC(16>"WRONG!“ 

442 PRIHTLEFTf<HT$,8)SPC(6)"THE MISSIHO 
HUMBER WAS ";R(R) 

445 FORDL*1TOi638=HEHTDL 
458 PR INTLEFT* (flT$.. 6) SPC (18 >" 


454 F'R I HTLEFT* <fiT$,8>SPC<4> 


468 NEXTC 

465 G0T0288 

470 F0RU=1T02 

4S0 IFSCWJO20 THEHGOTO500 

490 PR I HTLEFT $ < FIT*,. 5 > SPC < 8) P$ < N>" IS TH 

E WIHNER!" 

580 NEXTW 
510 EHD 

10800 REM SET UP SOUNDS 
18010 30=54272 

10020 FORT=0TO28:POKESO+T,0:NEXT 
18040 POKESO+5..9 : REM ATTACK/'DECAY 
18050 P0KES0+6 .• 240: REM SUSTA IN/RELERSE 
10860 POKESO+24.15 : REM VOLUME 
1.0870 POKESO+4,33 :REM WAVEFORM 
10080 RETURN 
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Hangman 



This is a game you may have played before using paper and pencil 
but now you are up against a computer. 


The object of the game is to spell out a word correctly, in as few 
moves as possible, to save a man from being hanged. Every correct 
answer helps to complete the word, every wrong answer helps to 
hang the poor man. 

You can, if you wish, change the title to hangwoman. 


How to play 

The computer will put on the screen a five or more letter word and 
will ask you for a letter to help fill in the blanks. 

You don’t need to press the RETURN key, just type the letter of 
your choice and the computer will do the rest. 
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Each letter you get right will be filled in but each letter you get 
wrong will help to complete the gallows, the rope and the victim. 

The computer will also show the letters you have chosen 
incorrectly so that you don’t choose them again and hang the man 
in error. 

Scores are kept at the top of the screen. 

Remember - think before you print - it could save a life. 


Programming Notes 

The words for selection can be changed when typing in the data in 
lines 700 to 790. If you increase the number of words, change the 
50 in lines 27,50 and 80 to match the total number of words. 


Program 

10 REM 

29 REM * * 

22 REM * HANGMAN # 

24 REM * * 

25 REM *lW:m*;m:m***«*H< 

27 DIMW$<50> 

30 AT$=CHR$<17 >:F0RT=1TOS:RT$=RT$+RT*:HE 
XTT:AT$=CHR$(19 > +AT $ 

32 C$="" ; FL=0 

34 SC=@:NW=0:PRINTCHR$(147) 

35 POKE53280,14 = P0KE53281 , 12 
40 GOSUB1000:GOSUB10000 

50 FGRJ=1TO50 
60 RERBW$<J> 

70 NEXTJ 

80 R=INT<RND<1>#50)+1 
82 LC=0 : C$="" 

80 L-T —• 10 

92 PP.INTLEFT$( f\J$, 2)SPC<4) "WORDS:"NW • 

95 PRINTLEFTf(AT$,2 > SPC <25)"SCORE ="SC 
100 F0RJ=1T0LEN<W$<R)) 

110 PRINTLEFT$CRT$,20 >SPC(11+J*2)CHR$(18 
3>JCHR$<32> 
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115 C*=C$+’’ " 

120 NEXTJ 

200 GET LTR$ : IF LTR$=""THEH200 

210 IFLTR$<"fl"OR LTR$>"Z" THEN GOTO280 

220 FORJ=1TOLEN(W$ (. R)) 

230 IFLTR$=MID$(U$(R),J,1)THENPRINTLEFT$ 
< AT*,19)SPC <11 +J*2); LTR$ ■’ FL= 1 
248 IFLTR*=MID$<W$<R),J,1)THENC$=LEFT$<C 
$, < J-1 >) +LTR$+M I D$ 'X$, (J+1) > 

250 NEXTJ 

260 IFC*=W$(R)THENGOTO600 

270 IFFL=1THENFL=0:G0T0288 

230 PR INTLEFT* < RT$,22)SPC < 4+LC)LTR* 

290 LC=LC+1 

300 IFLCO1THENGGTO320 

310 PRINTLEFT*<RT$,17)SPC <15)A$ <1) 

320 IFLC02 THENGOTO340 

330 PRINTLEFT*<AT*, 16)SPC<16)A*<2) 

340 IFLCO3THENG0TO3S0 

350 PRINTLEFT* ( RT*,S > SPC ( 1 7) A* <3) 

360 IFLC04THEN GOTO380 

370 PR I NTLEFT* < AT*, 9) SPC (21) A* <4) 

330 IFLCO5THENGOTO400 

390 PRINTLEFT*CRT*,10)SPC<21)fi*(5) 

400 IFLCOSTHENGOTO420 
410 PRINTLEFT*<RT*,11)SPC <21)fi*<6) 

420 IFLCO7THENGOTO440 

438 PRINTLEFT*< AT*,11)SPC <28)fi*< 7) 

440 IFLCOSTHENGOT0460 

458 PRINTLEFT*< AT*,11)SPC < 22)A* < 8) 

460 IFLCO9THENG0T0475 

470 PRINTLEFT*(AT*,13)SPC < 20)R* < 9) 

475 IFLC<10THENGOT0200 

480 I FLCO 10 THEN COTO660 

490 PRINTLEFT*(AT*,13)SPC C22)fi* <10) 

500 GOTO200 
600 REN WIN 

610 FORJ=1TO50 : FORJJ=1T05 = P0KES0+1, J*JJ: 

NEXTJJ,J:P0KES0+1,0 

620 F0RDL=1T0588■NEXTDL 

638 30=30+1 

648 NW=NW+1 

650 PRINTCHR*(147):GQTO80 
668 REM -LOSE 

665 FORJ=58T01STEP-1 : FORJJ=1T05:PGKESG+1 
, J*JJ:NEXTJJ,J:P0KES0+1,0 
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670 FORDL=1TO500:NEXTDL 

675 PR I NTCHR$ < 147): PR I NTLEFT$ <AT$, 10 > SF'C 

<12)" THE WORD WAS" 

680 PRINTLEFT$<AT$,12)SPC<19-LEN<W$<R ))/ 
2);W$<R) 

685 FORDL=1TO1000 = NEXTDL 
690 NW=NW+1 
695 G0T0650 

700 DATA"SCHOOL ","TOMORROW"," ADDRESS","L 
ENGTH","EXPERT" 

710 DATA"KETTLE","COMPUTER","LEGIBLE","M 
EDICINE","BELIEVE" 

720 DATA" MVSTERV"," DOLF'H IH"," FEBRUARY"," 
BLANKET","SPECIAL" 

730 DATA"PAVEMENT","FRAGILE","DIFFICULT" 
.."RHUBARB", "PENGUIN" 

740 DATA "ALPHABET", "DAFFODIL", "YACHT 1 VS 
QUARE","THROUGH" 

750 DATA"TONGUE","RASPBERRY", "CUSHION"," 
SOLDIER","GENIUS" 

760 DATA"SPECTRUM","CYLINDER", "OIL", "DIS 
PENSER","SCATTER" 

770 DATA"CIRCUIT","DEFINITE","PERCH","CO 
NSTRUCT","QUESTION" 

780 DATA"WEATHER","DISTURB”,"EXHAUST","M 
OVEMENT","SEMBLANCE" 

790 DATA"BANTAM","OCTOBER","SEPTEMBER"," 
ANNUAL","PROPORTION" 

1008 REM SET UP CHARACTER STRINGS 

1010 FORT= 1T09: A$ (1) =A$ < 1) +CHR$ <183) '■ HEX 

TT 

1020 FORT--1T08: A$ < 2) =A$ <2) +CHR* < 170) +CHR 
$<157)+CHR$(145):NEXTT 
1030 FORT=1T04:A$ < 3)=A$ < 3)+CHR$<175):NEX 
TT 

1040 A$<4)=CHR$<180) 

1050 A$(5)=CHR$<119) 

1060 A$ <6)=CHR$<18)+CHR$< 32)+CHR$<17)+CH 
R$ <157)+CHR$ < 32)+CHR$ <146) 

1070 A$ < 7)=CHR$<110):A$< 8)=CHR$ <109) 

1080 A$<9)=CHR$<110):fi$<10)=CHR$<189) 
1090 RETURN 

10080 REM SET UP SOUNDS 
10010 30=54272 

10020 FORT=0TO28:POKESO+T,0:NEXT 
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10040 P0KES0+5 ! 9 :REM ATTACK,--'DECRY 
10050 P0KE80+S,240 : REM SUSTAIN/RELEAS 
10060 POKES0+24,15:REM VOLUME 
10070 POKESO+4,33 : REM WAVEFORM 
10030 RETURN 
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Organ 




U ' - ’ ' ...... . 

J_I_I_I_I_I_L 


PRESS FI TO REPLflV THE TUNE 

o 

F7 TO START A NEW 


Here is your chance to become the next Stevie Wonder, Mozart or 
maybe just play ‘Happy Birthday’ to your parents on your 
computer. 

You’ll be able to type your own tunes into the computer’s memory 
and have them played back to you. 

Howto play 

The screen will show an organ keyboard, with each key labelled 
with the letter you must press to get that particular note. Everytime 
you press a key, a coloured star will move to that organ key on the 
screen, and you will get a musical note from your computer. 

When you have finished your tune and wish to replay, press 
Function key 1 and the computer will play back the whole tune for 
you. 
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Instructions on how to clear the memory, and write a new tune, will 
appear on the screen. 


Program 


10 rem 

20 REM # * 

22 REM * ORGRN % 

24 REM # # 

25 REM ##****$$##**m#*$**#* 

27 P0KE53281,1:PQKE53280,6 

30 RT$=CHR$(17) ■ F0RT=1T0S: RT$=RT*-+RT$: NE 
XTT : AT $=CHR$ (19) +FlT $ 

32 PRINTCHR$(147);CHR$(144):GOSUB10000 
35 DIM HI(1500),L0(1008),X(1000), Y(1000) 
40 C=0 : Xl=16 : Vl=19 
50 N=0=GOSUB1008 

60 RR=PEEK(197):IFfifl=64THENHI=0 : L0=8 : R$= 
"":X=16 : V=19 
65 GETfl$ 

80 IFR$= " Q" THENHI =7: L0= 119 ■ X=6 
90 IFR$="E"THENHI=8 : L0=225 : X=6: Y=7 
100 IFR$="R"THENHI=9:L0=247:X=6:V=11 
110 IFfi$="V"THENHI=l1:LQ=213:X=6:Y=19 
120 IFR$="U"THENHI=13:L0=78 : X=S:V=23 
130 IFR$="I"THENHI=14:L0=239:X=S:V=27 

169 IFfl$="S"THENH1=8:10=97:X=18:V=5 

170 IFfi$="D"THENHI=9:LO=104:X=10:V=9 

180 IFfl$="F"THENHI=10:L0=143:X=10 : Y=13 
198 IFR$="G"THENH1=11:10=48:X=10:V=17 
200 IFfl$="H"THENHI = 12:L0=143:X=10 = V=21 
2101FR*="J"THENHI=14 : L0=24 : X=10:V=25 
220 IFfl$="K"THENH1=15:L0=210:X=10:V=29 
230 I Ffl$= " L" THENHI= 16: L0=195: X= 10 : V=33 
240 IFfl$=CHR$(133)THENGGT0318 
253 IFfl$=CHR$(136)THENC=3:PRINTCHRf(147) 

:GOTO40 

252 IFX1>7THENPRINTLEFT*< RT$, X1)SPC(VI)" 


":00T0255 

253 PRINTLEFT*(RT$,X1)SP 
RJC32)CHR$(146) 

255 IFX>7THENPRINTLEFT*( 


C(Y1)CHR$(18);CH 
RTf,X)SPC(V)CHR$ 


(42):G0T0257 

256 PRINTLEFTf(RT$,X)SPC(V)CHR$(18);CHRf 
(42)CHRf (146) 
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257 X1=X : Vi=V 

260 POKESO+1,HI:POKESO,LO 

270 C=C+1 

272 IFO1000THENC=1000 
280 HI(C)=HI: L0(C)=L0 
290 X(C)=X:V(C)=Y 
300 GOTO60 

318 PRINTCHR*(147):GOSUB1800 

328 FOR-J= 1 TOC: X=X ( J): V=V (J) 

321 IFX1>7THEHPRINTLEFT*< AT*, X1)SPC(Y1>" 
":G0T0325 

322 PR I NTLEFT* < AT*, X1 ) SPC (V1 > CHR* (18 >CH 
R*(32);CHR.*(14S) 

325 I FX>7THENPR I NTLEFT * (AT*, X) SPC (V) CHR* 
(42) : G0T0329 

326 PRINTLEFT*(RT*,X)SPC(V)CHR*(1S);CHR* 
(42)iCHR*(146) 

329 X1=X : V1=V 

330 POKESO+1,HI(J):POKESO,LO(J) 

335 F0RDL=1T045 : NEXTDL 

337 X1=X : V1=V 
340 NEXTJ 
350 GOTO60 

1800 REM m THE SYMBOL " ! " IS 'SHIFT-' 
AND 'B' TOGETHER 

1002 REM THE SEQUENCE "S3 H " IS 'RVS 
ON'+'CBM RND H TOGETHER/+'SPACE' 

1084 REM + 'CBM RND N TOGETHER'+'RVS OFF 
/ 

1006 REM 'RVS ON' IS ACHIEVED BY 'CTRL A 
HD 9 TOGETHER' 

1008 REM 'RVS OFF' IS ACHIEVED BY 'CTRL 
AND 8 TOGETHER' 

1009 PRINT" SI 

1" 

1010 PRINT" I S3 3 S3 S I S3 B S3 

i i m ! i 

1820 PRINT" I S3 E 35 B I S3 B Si 

I I El I I 

1030 PRINT" I S3 B S3 a i S3 @ E? 

I I SS I ! 

1040 PRINT" I SI S S3 a I S3 B E? 

I I £533 I ! 

1050 PRINT" I a E E a R S I S3 V E d 

I U I Bfl I I 
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I860 PRINT" ! SI_H a_ & I a _ P a 

I - 1 BH! ! ! 

1070 PRINT" I I I I I I ! 

I I 

1080 PRINT" I I i ! I | | 

I I 

1090 PRINT" I ! ! ! I I I 


1100 PRINT" ! S I D ! F ! G ! H ! J 



1120 PR INTLEFTS < FiT$, 20} SPC < 5 V PRESS FI T 
O REPLRV THE TUNE" 

1130 PRINTLEFT$<AT$,22>SPC<5>"PRESS F7 T 
O START A NEW TUNE" 

1150 RETURN 

10000 REM SET UP SOUNDS 
10010 30=54272 

1@020 F0RT=8T02S:POKESO+T,0:NEXT 
10040 PQKESQ+5 > 9 : REN fiTTRCK/BECPV 
10050 POKESQ+6.. 248: REM SUSTAI N/RELEflSE 
10060 P0KES0+24,15:REM VOLUME 
10070 POKESO+4,33 :REM WAVEFORM 
10098 RETURN 
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Anagram 



If you think that you are good at spelling then this game is for you. 
If you know that you are bad at spelling then this game is certainly 
for you. Well, you need the practice don’t you? A selection of let¬ 
ters will be scattered around in a box within the screen and the 
player will be asked to unjumble them to make a word. Not any old 
word like MAFILY will do however, when the correct word is 
FAMILY. 


How to play 

This is for one player. 

The selection of letters will not be on one line but will be mixed up 
in a small square. 


When you have decided what the correct word is you type it in and 
press RETURN. 
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Tries and correct answers will be shown on the screen but, in the 
event of a wrong answer the player will be asked to try again until 
the correct answer is given. 

If you make a mistake press DELETE and begin again, but always 
remember to use CAPITAL letters when typing in your entry. 


Programming Hints 

More difficult words can be used by changing the data statements 
in lines 440 to 470. If you increase the number of words, change the 
20 in lines 40,70 and 100 to match the total number of words. 


Program 

10 rem wmmmmw-mm 

70 PPM * * 

22 REM % ANAGRAM % 

24 REM * * 

25 REM 

30 AT$=CHR$<17) : F0RT=1T06 : AT$=AT$+AT$ : HE 
XTT : AT$=CHR$(19)+AT $ 

35 GOSUB10000 
40 BIMW$<20):DIMM<6,6) 

45 POKE53280,13-P0KE53281,14:PRIHTCHR$<1 
44) 

50 SC=8: TR=9: PRINTCHR$a47) 

60 P0KES0+1,40:F0RBL=1TO100 = NEXTBLIPOKES 

0 + 1,0 

70 FORJ=1TO20 
80 REABW$<J) 

90 NEXTJ 
92 G0T0325 

100 R=INT(PHD <1)*20) +1 
102 F0RJ=7T013 

104 PR I NTLEFT$ < ATS, J) SPC (11).:" 

il 

106 NEXTJ 

110 PRINTCHR$<144):F0RJ=1T08 
120 IFMI m < ]>it < R), J, 1) = 1 "" THENG0T0180 
125 IFMID$CW$<R),J,1)=" "THENGOTO180 
130 P1=INTCRND<1)#6)+1 
140 P2=INT<RND<1)#6)+1 
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150 IFM(P1,P2)=1TH£HGOTO130 
160 M(P1, P2) = l 

170 PRINTLEFT*(RTS, P1+6)SPC(P2+14)I1ID*(W 
S(R),J,1) 

175 POKESO+l,20:FORBL=1TO40:NEXTDL=POKES 
0+1.. 0 
180 HEXTJ 
185 PRIHTCHRS(5) 

190 PRINTLEFT*(RT*,16)SPC(9)" 14HRT IS TH 
E WORD? " 

200 F0RJ=1T06 
210 F0RK=1T06 
220 M<.1,10=0 
230 NEXTK 
240 HEXTJ 

250 PRIHTLEFTS < RTS, 18) SPC (12)01 NPUTfiS 
252 IFRS>"Z" THEHPRIHTLEFTS(RTS,4)SPC(10 
)"USE CRPITRL PLERSE" : GOTO250 
256 IFLEN(R$)<8THEHR$=RS+" ":G0T0256 
260 PRIHTLEFTS(RTS,16)SPC(6)" 

ll 

265 PRIHTLEFTS(RTS,18)SPC < 6)" 

II 

270 TR=TR+1 

280 IFRS*"QUIT "THENGOTO420 

290 IFLEFTS (RS, LEN< 14$ (R))) OWS (R) THEN GO 

TO390 

300 FORTT®1TO10 = FORSS=10TO100STEP5 = POKES 
0+1,SS:NEXTSS,TT:POKESO+1,0 
310 PRIHTLEFTS(RTS,16)SPC(13)"CORRECT!" 
328 SC=SC+1 

325 PRINTCHRS <144):PRIHTLEFTS(RTS,1)SPC < 
10)"fl N R G R R M S " 

330 PRINTCHR*(5) : PRINTLEFTS(RTS,3)SPC(4) 
"TRIES: ";TR 

340 PRIHTLEFTS(RTS,3)SPC(24)"SCORE = ";SC 
342 FORBL=1TO580:NEXTDL 
350 F0RJ=6T012 

360 PRINTLEFT*(RTS,J)SPC <11)j" 

ll 

370 HEXTJ 
380 GOTO100 

390 FORTT=1T06:FORSS=100TO10STEP-2 = POKES 

0+1,SS : NEXTSS,TT >POKESO+1,0 

400 PRINTLEFT*< RTS,16)SPC(14)"TRY RORIN! 
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485 FORDL=1TO1888:NEXTDL 
418 GOTO198 

428 PRINTLEFT$<AT$,16)SPC<7:s"THE WORD W 
AS ’SW*<R> 

425 FORBL=1TO380 : NEXTDL 
428 PRINTLEFT$<RT$,16)SPC<6>" 

I! 

433 G0T0338 

448 DATA "POND'S "WOOD'S "MOUSE'S "TIGER'S " 
DIGIT" 

450 DATA"IDEA","ANAGRAM","MOTH","PARTY", 
"OCEAN" 

460 DATA"PENNY","RABBIT","PEAR","TOAD"," 
GUESS" 

478 DATA"BINARY'S "PUPIL'S "BASIC'S "VIDEO" 
,"RECORD" 

18880 REM SET UP SOUNDS 
18818 30=54272 

18820 F0RT=8T023:POKESO+T,8:NEXT 
10840 P0KES0+5,9 : REM ATTACK/DECAY 
18850 POKESO+6,240:REM SUSTAIN/RELEASE 
18060 POKESQ+24;15 : REM VOLUME 
10070 POKESO+4,17 :REM WAVEFORM 
18080 RETURN 
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Compass 



This game, along with Morse Code and Constellation games’ could 
save your life one day. You might wander off in a desert, a jungle 
or an ice field and you will thank your lucky stars that you once had 
a computer. 

The Compass game will help you to identify North from South and 
even North East from South West. 


How to play 

Your friendly computer will draw you a map and show you the 
eight major compass settings North, North East, East, South East, 
South, South West, West and North West. 

The computer will then spin its own little compass setting, point the 
arrow in a certain direction and ask you to decide where you are 
going. 
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Wrong answers mean that you will be asked again and again if 
necessary. 

Random selection means that you may find yourself pointed in the 
same direction twice running but at least you should know where 
you are. 


Programming Notes 

This program uses the same map routine as ‘towns’ and ‘counties’. 
If you are typing in one of these as well you can save yourself some 
work if you just type in the lines that are different with your first 
program still in the computer. Don’t forget to save your first pro¬ 
gram on a tape. 


Program 

10 REM ************* 

20 REM * * 

22 REM * COMPASS * 

24 REM * # 

25 REM ************* 

30 AT*=CHR*(17):F0RT=1T06:AT*=AT*+AT$:HE 
XTT : AT*=CHR*(19)+AT$ 

35 POKE53280,6:P0KE53281,15 : PRINTCHR*(14 
4) 

40 TR=0 ; SC=0 

100 GOSUB9000 : GOSUB8000 

110 F0RR=1T03 

120 PR I NTLEFT* (AT*, X (R)) SRC (V (R)) A* (P.) 

125 PR I NTLEFT* (AT*, 5) SPC (30- (LEN (Ii I * (R )) 
/2))BI*(R) 

130 F0RBL=1TO1800 : NEXTBL 
140 OOSUB7000 
150 HEXTR 

155 R=T NT(RNB(1)#8)+1 

160 PRINTLEFT*(AT*,4)SPC(20)"SCORE"SC 

165 PR I NTLEFT* (AT*.. 4) SPC (39)" TRIES" TR. 

178 PRINTLEFT*(AT*,X(R))SPC(V(R))A*(R) 

175 PRINTLEFT*(AT*,18)SPC(23)" 

II 

180 PRINTLEFT*(AT*,18)SPC(23)"WHICH DIRE 
CTION" 
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185 PRINTLEFT* < AT*,19)SPC < 23)" 

It 

190 PRINTLEFT*<AT*,19)SPC<23)" IS THI 
S ? " 

192 PRINTLEFT*<FIT*,21)SPC<23);" 

II 

195 PRINTLEFT* < AT*,21)SPC < 23);:INPUTANS* 

200 TR=TR+1:IFANS*=DI*<R)THEN300 

218 FORW=4T01STEP-1:FORQ=1T05 = FORQQ=10TO 

1STEP-1 : POKESO+1,W#Q#QQ 

215 NEXTQQ,Q,W:POKESO+1>0 

220 PR INTLEFT* < RT* > 21)SPC < 23)j" 

tl 

238 PRINTLEFT*CRT*,21)SPC(23);"NO! TRY 
AGAIN" 

240 FORIiL= 1TO500 : NEXTDL 
250 GOTO160 

300 PRINTLEFT*<AT*j21)SPC<23);" 

II 

310 PRINTLEFT* <RT$,21) SPC <23);" CORREC 
T! 

315 FORW=1TO10:FQRQ=1T04:FORQQ=1T06:POKE 

SO+1,U*Q*QQ:NEXTQQ,Q,W;POKESO+1,0 

320 FORDL®1TQ1000:NEXTDL 

330 GOSUB7000 

340 SC=SC+1 

350 GOTO155 

7000 REM CLEAR SCREEN 

7010 F0RT=5T022:PRINTLEFT*<AT*,T)SPC<20) 

II II 

7020 NEXTT 

7030 RETURN 

8000 REM SET UP ARROWS 

8010 RERDX : IFX=0THENGOTOS030 

8020 A1*=A1*+CHR*<X):GOTO8010 

8830 A2*=CHR* <180)+CHR* <170)+CHR* <17)+CH 

R* <157)+CHR*(157) 

8040 R2*=fl2*+R2*+fl2*+fl2* 

8050 R3*=CHR*<32)+CHR*<110)+CHR* <145)+CH 
R*(157)+CHR*<157)+CHR*<110) 

8060 A3*«A3*+A3*+A3*+A3* 

8070 R4*-CHR*<32)+CHR*<109)+CHR$<17)+CHR 
* <157)+CHR*<157)+CHR*<109) 

8088 R4*=fl4*+R4*+R4*+fl4* 

8090 fi* < 1) =CHR* < 110) +CHR*<189) +CHR* < 17) + 
CHR*<157)+CHR*<157)+R2* 
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8100 m (2 )=R3*+CHR$(112) 

8110 R$(3)=R1$+CHR$(lie)+CHR$(145)+CHR$( 
157)+CHR$(189) 

8120 fi$<4)=R4$+CHR$(186) 

8139 fl$ (5 )=R2$+CHR$ (109) +CHR$ (110 > 

8140 fl$(6)=CHR$(108> +MI D$ (R3$, 2) 

8150 fi$(7)=CHR$(110)+CHR$(17)+CHR*(157)+ 
CHR$(109)+CHR$(145)+fi1 $ 

8160 flf(8)=CHR$(207)+MID$(R4S, 2) 

8170 F0RT=1T08:RERDX : X(T)=X = NEXTT 
8180 FQRT=1T08 = RERDV = V(T)=V = NEXTT 
8190 FORT=1T08:RERDV$ : DI$(T)=V$ : NEXTT 
8200 80=54272 

8210 FGRT=0TO28:POKESO+T, 0:NEXTT 

8220 POKESO+5,9:P0KES0+6,240:POKESQ+24,1 

5 : POKESO+4 , 33 

8230 RETURN 

9008 REN DRAW MRP 

9005 PRINTCHR$(147) 

9010 FORT=1024TO1944STEP48 
9015 F0RTT=3T018 
9020 RERDX 

9030 POKET+TT,X:P0KE(T+TT+54272),5 
9040 NEXTTT.' T 
9050 RETURN 

10000 DRTR 32,32,32>32,32,32,32,32,252,9 

8.98.32.32.32.32.32.32.32.32 

10010 DRTR32,32,32,32,32,254,32,32,160,1 

60.236.32.32.32.32.32.32.32.32 

10020 DRTR32,32,32,32,32,126,32,254,160, 

236.32.32.32.32.32.32.32.32.32 

10030 DRTR32,32,32,32,58,118,108,168,160 
,169,98,160,160,252,32,32,32,32,32 
10840 DRTR32,32,32,32,58,124,188,168,1S3 
, 160,160,168,160,12S-, 32,32,32,32,32 
10050 DRTR32,32,32,32,46,32,168,160,163, 

168.168.160.160.32.32.32.32.32.32 

10068 DRTR32,32,32,32,32,108,188,160,168 
,163,160,160,126,32,32,32,32,32,32 
10078 DRTR32,32,32,32,32,32,245,160,163, 

160.160.128.126.32.32.32.32.32.32 
10088 BRTR32,32,32,32,32,126,244,118,168 
,160,160,163,252,32,32,32,32,32,32 

10090 DRTR32,32,32,32,32,32,126,254,163, 

160.163.163.160.97.32.32.32.32.32 
10103 DRTR32,32,32,32,32,32,32,160,160,1 



Compass 127 


60.160.160.160.252.32.32.32.32.32 
10110 BRTR32,32,32,32,32,32, 32,126,119,2 

54.160.160.160.160.121.32.32.32.32 
10120 DRTR32,32,32,32,32,32,32,255,32,11 

8.160.160.168.169.160.123.32.32.32 

10130 BATR32,32,32,32,32,32,32,32,32,32, 

254.160.160.160.160.160.32.32.32 

10140 BRTR32,32,32,32,32,32,32,32,32,32, 

160.160.160.160.160.223.32.32.32 

18150 BATR32,32,32,32,32,32,32,126,248,2 

54.163.168.160.160.168.168.223.32.32 

18168 BRTR32,32,32,32,32,32,32,226,160,1 

60.168.168.160.168.163.168.252.98.123 

18170 DRTR32,32,32,32,32,32,32,32,168,16 
0,168,168,168,168,160,163,168,160,160 
10188 BRTR32,32,32,32,32,32,188,254,168, 
168,160,168,168,168,160,168,163,163,236 
10190 DRTR32,32,32,32,32,124,236,251,168 
,168,160,160,163,163,160,16©, 160,160,32 
10280 BRTR32,32,32,32,32,32,32,32,124,12 

8.168.160.160.168.160.192.192.98.123 
10218 BATA32,32732,32,32,32,32,254,247,2 
54,160,168,168,160,160,168,163,168,126 

13220 BRTR32,32,32,32,32,32,108,168,160, 

160.160.168.160.120.239.128.226.32.32 

10230 BRTR32,32,32,32,46,254,239,251,236 

nn on oo on oo OO OO oo CO 
.« Oc j Oi J y 3 > Oc .} OcL .1 Od J > Oc > Oc.ot 

18243 BRTR183,183,183,183,17,157,157,157 

,157,175,175,175,175,0 

18250 DRTfi 10,14,12,11,11,15,12,10' 

10260 BRTR 29,28,29,28,29,27,27,27 
10270 BRTR"NORTH",”NORTH-EAST","ERST","S 


OUTH-ERST" 

18288 BRTR"SOUTH","SOUTH-WEST","WEST","N 
ORTH-WEST" 
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Submarine 



You are a destroyer captain alone in a hostile sea surrounded by a 
pack of submarines which are travelling secretly to a rendezvous. 
The submarines cannot break radio silence or send for help and 
must not attack you for fear of giving their position away but you 
can sink as many of them as you can - with as few depth charges as 
possible. 


How to play 

On the screen will be shown a board divided into 100 squares. The 
submarine is hiding in one of those squares. The bottom (horizon¬ 
tal) line is called X and the upright (perpendicular) line is called Y. 

Each line of boxes goes from 0 to 9 and you have to give the box 
numbers to the computer when it asks for your entry. You will be 
asked to type in a number for the X and Y lines. If you think that 
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the submarine is in a box 8 across and 5 high then press 8 and 5 
when the X and Y positions are asked for. 

Remember there is no need to press RETURN after each number. 

After the second number is entered you will hear the ‘crump’ of an 
exploding depth charge. If you make a direct hit first time you will 
hear a ‘whooping’ sound and the screen will show you how many 
tries you took to sink the submarine. 

If however you miss, the computer will tell you if your shot was 
North, South, East or West of the target and you must then plan 
your next shot. 

As soon as the submarine is sunk your computer will search and 
detect another target. 

Special Note Expert captains should be able to detect and sink the 
enemy within four moves. 


Program 

10 rem mmmmmtmmww 
20 rem * * 

22 REM * SUBMARINE * 

24 REM * % 

25 REM 

30 RT*=CHR*<17): F0RT=1T06: RT*=RT*+RT*: HE 
XT! : RT*=CHR*(19)+RT* 

32 PR I NTCHR* <147); CHR* < 144) •' COSUB 10000 
35 PQKE53280.' 6: PQKE53281 .■ 1 
40 P0KES0+1,12:F0RBL=TTO300 = NEXTBL = POKES 
0+1,0 

50 PRINTLEFT* < RT*,1)SPC<6)"SHOOTS : 0" 

60 PRINTLEFT* < FIT*, 1)SPC<23)"HITS : 0" 

70 PRINTLEFT* < RT*,2)SPC < 11)" V" 

80 PRINTLEFT*<RT*,15)SPC<25)"X" 

90 FORJ=10TO19 

100 PRINTLEFT* <RT*,3)SPC <J+3)"." 

110 PRINTLEFT*<RT*,14)SPC<J+3)"." 

120 PRINTLEFT*<RT$,15)SPC<J+3)MID*<STR*< 
J-10),2,1) 

130 NEXTJ 
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146 FQRJ=3TQ14 

150 PRINTLEFT$ < AT#,J > SPC(12 >"." 

160 PRINTLEFT#<AT#,J)SPC(23 >"." 

170 NEXTJ 
180 F0RJ=4TQ13 

190 PRINTLEFT#<AT#,J)SPC <11)MIB$ <STR# <13 
-J>,2,1> 

200 SH=0 : HT=0 
205 RK=0:RV=0 
210 NEXTJ 

220 SV=INT<RND<1)#10) 

230 SX=INT<RND<1)#10) 

232 PRINTLEFT#<RT$,17)SPC<9>;" 

II • 

235 PRINTLEFT#<AT#,17)SPC<9); "VOUR SHOT 
(X'V) ? "« 

237 GETRX#:lFfiX#<"0" OR RX#>"9" THEN237 
240 PRINTRX#"," J :flX*VRL<RX#) 

242 GETRV#:IFRV#<"0" OR RX#>"9" THEN242 

244 PRINTRV# : R¥=VRL(RY#) 

245 PRINTLEFT#(AT#,13-RV)SPC<13+flX)"#" 
260 FORJ*180TO30STEP-1:POKESO+1,10+J : FOR 
BL=1TO10:NEXTDL,J:POKESO+l,0 

270 POKESO+4,129:FORJ*1TO30:POKESO+1,J:F 

ORDL=1TO10 : NEXTDL 

275 NEXTJ:POKESO+1,0 : POKESO+4,17 

290 PRINTLEFT# <RT$,20>SPC <7)" 

ll 

295 PRINTLEFT# <RT$,21>SPC <7)" 

II 

300 PRINTLEFT# <RT#,20)SPC <7 5; 

310 IFRX=SX RND fiV=SV THENGOTO420 
320 PRINT"VOUR SHOT HRS "j 
330 IF RV<SV THEHPRINT"SOUTH 
340 IFRV>SV THENPRINT"NORTH 
358 IFRX<SXTHENPRINT"WEST "; 

360 IFRX>SXTHENPRINT"ERST 

370 PRINTLEFT# < AT#,21)SPC(7 >"OF THE SUBM 

ARINE,CAPTAIN." 

380 SH=SH+1 

390 PRINTLEFT# <RT#,1) SPC <13> SH;CHR#(157) 

• ll ll 

400 FORDL=1TO200:NEXTDL 
410 G0T0232 
420 FORJ=1TO40 

425 PRINTLEFT#(AT#,13-RV)SPC<13+RX)" " 
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430 PQKESO+1, J : P0KES0+8,109-J 

433 PRINTLEFT*<AT*,13-A V)SPC<13+AX) i CHR* 

<113) 

437 P0KES0+8 .• J : POKESO+1.. 100-J 

440 NEXTJ : POKESO+1,0:POKESO+8,6 

450 PRINTLEFT* < AT*,20)SPC <12 >"A DIRECT H 

IT!" 

452 FORDL=1TO1800:NEXTBL 

453 F0RJ=4T013 

454 PR I NTLEFT* < FIT*, J) SPC <12) J". 

II 

456 NEXTJ 
460 HT=HT+1 

470 PRINTLEFT*<AT*,1)SPC<29)HICHR*<i57) 

• II II 

472 IFHT=10THENGOTO540 

480 FORDL=1TO300:NEXTDL 

490 PRINTLEFT*<AT*,20)SPC <2)"ANOTHER SUB 

MARINE HAS BEEN DETECTED!" 

510 GOTO220 
540 FORJ=l TO 10 
550 : 

560 NEXTJ 

562 PRINTCHR*<147) 

578 PRINTLEFT*<AT*,8)SPC<11 )i "CONGRATULA 
TIONS!" 

580 PRINTLEFT*<AT*,10)SPC<9) 1 "TEN SUBMAR 
INES SUNK!" 

590 PRINTLEFT* < AT*,13)SPC <12 >;"VOU HAVE 
BEEN " 

600 PR I NTLEFT* < AT* ,14) SPC < 9)" PROMOTED T 
0 ADMIRAL!" 

10000 REM SET UP SOUNDS 
10010 80=54272 

10020 FORT=0TQ28:POKESO+T,0:NEXT 

10040 POKESO+5,9 : POKESO+12,9 : REM ATTAC 

K/DECAV 

10050 POKESO+6,240 : POKESO+13 > 240 : REM SUS 
TAIN/RELEASE 

10060 P0KES0+24,15 : REM VOLUME 

10070 P0KES0+4,17 : POKESO+11,129 : REM WAV 

EFORM 

10080 RETURN 
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Word Search 
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CORRECT! 


This is a game to see how sharp your eyesight is and how quick you 
are at spelling words which are hidden in the screen. 


The computer will put up a selection of letters all over the screen 
and, hidden amongst this alphabet spaghetti will be certain words 
which you will have to spot and spell out to your computer. 


How to play 

When you find a word on the screen you type it in. You then press 
the RETURN key and, if you have correctly identified and spelled 
out the word, it will be picked out, in green, on your screen. 

The score board will show your number of tries and the number of 
words you have correctly spotted. 
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When you cannot find any more words you simply type in the word 
QUIT. 


Your computer will then show, in blue, all the words. 


Your score will be shown on the screen. 


Programming Hints 

If the selection of words is too simple or difficult you can change 
the data in lines 500 to 530. Make sure that all the words you use 
have exactly 7 letters. 


Program 


10 REM ********************* 

20 REM * * 

22 REM * WORD SEARCH * 

24 REM * * 

25 rem wwmmmmmmwm* 

30 AT*=CHR$ a 7):F0RT=1T06:RT$=RT$+RT#:NE 
XTT : RT$=CHR$(19)+flT$ 

32 PRINTCHR*(147);CHR*(150) 

35 POKE53280,0 : P0KE532S1,Q 
40 DIMM(20) 

47 DIMBC17) 

50 DIMW*(20) 

52 DIMC$(20) 

55 SC=0 •' TR=0 
60 FORJ=1TO20 
70 RERDW$(..T) 

80 NEXTJ 

90 PRINTLEFT$(fiT$, 3)SPC(4).; 

100 F0RK=1TO16 

185 PRIHTLEFT*< RTS,3+K)SPC(4).; 

110 R1=IHT(RND(1)*20)+l 
115 IFM(R1)=1THENGQT0110 
117 M(R1)=1 

119 CS(K)=W$(Ri) 

120 R2=INT(RHD(1)*20)+1 
125 B(K)=R2-1 

130 F0RL=1T032 

140 IFL=R2THENPRIMTC$(K); :L=L+7 
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150 LT=INTCRHDCl)*26)+65 
160 PRIHTCHR*CLT); 

170 NEXTL 
180 PRINT 
190 NEXTK 

195 PR IHTLEFT* < AT*, 21) 8PC (11)" 

!l 

197 PRIHTLEFT*C AT*,21)SPC C11); 

200 PRIHTCHR*C5); : IHPUT"VOUR WORD";A* 

202 IF A*="QUIT"THEN GOTO480 

204 IFA*0'A"AHD R*>"2"THENPRIHTLEFT* C AT* 
,20)SPC(4) "USE CAPITALS,PLEASE":GOTO195 

205 TR=TR+1 

267 PRIHTLEFT*CAT*,21)SPC (11> j" 

ll 

210 FGRJ=1TQ1S 
220 IFA*=C*CJ)THEHGOTO270 
230 HEXTJ 
248 : 

250 PRIHTLEFT*CAT*,23)SPCC16)"WRONG!" 

255 FORDL=1TO1009 : HEXTDL 
257 PRIHTLEFT*CAT*,23)SPCCIS)" 

260 GOTO300 
270 : 

275' PR I NT CHR* C 38) : PRI HTLEFT * C AT*, .J+3) SPC 
CBCJ)+4);C*CJ) 

280 PRIHTCHR*C5):PRIHTLEFT*CAT*,23)SPC C1 
1)"CORRECT!" 

282 C* CJ) ="" : FORDL=1TO1000:NEXTHL 
285 PRIHTCHR*<5)=PRIHTLEFT*CAT*,23)SPCC1 
1 )" 

298 SC=SC+1 

300 PRIHTLEFT*(AT*,1)SPC < 7)"TRIES: "; TR 
310 PRIHTLEFT* CAT*,1)SPC(23)"WORDS: "jSC 
320 IFSC016 THEHG0T0195 
339 END 

483 F0RJ=1T016 
485 PRIHTCHR*C154) 

410. PR I HTLEFT* CAT*, J+3) SPC C B C J) +4) j C* C J) 
428 HEXTJ 
430 GOTO330 

500 DATA"PROMISE","SPECIAL", "BLANKET", "F 
RAGILE","THROUGH" 

510 DATA"ADDRESS"/'CEILING","AMATEUR","M 
VSTERV”,"LEGIBLE" 
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520 DATA"BELIEVE","STATION","RHUBARB","B 
I8SECT";"SAVIOUR" 

538 BATA"ALCOHOL","CUSHION","SOLBIER","C 
ABARET","AQUATIC" 
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Noughts and Crosses 



No, it’s not that same old boring game that you play when it’s rain¬ 
ing outside and there is nothing else to do. 

With our noughts and crosses you have to solve a problem before 
you can make your mark on your computer’s board. You will have 
to decide if you can answer the question before you choose your 
box. 


Howto play 

The computer will ask for the players names which you type in and 
enter by pressing the RETURN key. 

The computer will then present you with a board and in each of the 
nine squares you will find a maths sum to solve. 
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First choose the box you want and RETURN the number. 

Now you can type in your answer and see if you get your nought or 
cross for the correct answer. 

Your opponent must follow the same steps. 

If either player gives a wrong answer the computer moves to the 
opposing player’s turn. 

The game progresses until someone gets a winning line at which 
point you can press caps shift and space together, then RUN to 
play again. 

If no one can complete a winning line then the game can proceed 
until all the boxes are completed and the player with the highest 
number of noughts or crosses will be the winner. 


Programming Note 


You can make the sums easier by reducing the numbers in line 200 
or more difficult by typing in a larger number. 


Program 


10 REM 

20 REM * * 

22 REM * NOUGHTS $< CROSSES * 

24 REM * * 

25 rem 

30 AT$=CHR$<17):F0RT=1TOS:RT$=AT*+AT$:NE 
NTT : AT *=CHR* <19) +FlT $ 

32 PRINTCHR*<14?);CHR*<144):QOSUB10800 
35 POKE532S0,9:P0KE53281,9 
48 BIMN<18) 

42 DIMP$<2) 

44 DIMHO) 

50 PRINTLEFT$<AT$,10)SPC<2)J"WHRT ARE TH 
E PLAYERS NAMES?" 

60 INPUT "PLAYER ONE: ";P$<1) 

70 INPUT "PLAYER TWO-’ ";P$<2) 

80 PRINTCHR*<147) 
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110 

F0RJ=2T019 


120 

PRINTLEFT*<AT*,J)SPC(11); 

CHR*Q13) 

130 

PRINTLEFT* < AT*,J)SPC(23); 

CHR*(113) 

149 

NEXTJ 


150 

F0RJ=2T031 


160 

PR I NTLEFT* < AT*.. 7) SPC (J) ; C 

HR*a 13) 

170 

PR I NTLEFT* < AT*.. 14) SPC < J 5; 

CHR*<1135 

130 

NEXTJ 


190 

F0RJ=1T018 


200 

N<J) = INT <RND<1)*900 > + 100 


210 

NEXTJ 


228 

C=1 


230 

F0RJ=4 TO 26STEP11 


240 

F0RK=2T016STEP7 


250 

PR I NTLEFT* < AT*.. K) SPC < J); N 

(C) 

260 

C=C+i 


270 

PRINTLEFT* <AT*, K+1 >SPC(J > 

JN<C5 

280 

C=C+1 


290 

PR I NTLEFT* C AT*K) SPC < J+4 > 

• „ + u 

300 

PRINTLEFT* <AT*,K+3)SPC <J- 

25;"SQUARE" 

I NT (C/2) 


310 

NEXTK 


320 

NEXTJ 



324 F0RN-1T02 

339 PR INTLEFT* < AT*, 21) SPC < 8 > P* C. N);", WHI 
CH HUMBER SQUARE?" 

332 PRINTLEFT*<AT*,22)SPC <05" 

ll 

335 PRINTLEFT* < AT*,22 5 SPC < 0 5; 

340 IHPUTSQ 

341 IFSQ<1ORSQ>9THENGOTO330 

342 PRINTLEFT*<AT*,21)SPC<05"SQUARE "SQ" 

II 

345 PRINTLEFT* < AT*,22 5 SPC £ 0 5" 

II 

347 PR INTLEFT * < A T*, 22 5 SPC (9) 

358 INPUT"WHAT IS THE ANSWER? "JANS 

360 I FfiNS=N < SQ*25 +N (SQ*2-1 > THENGOTO420 

370 POKESO+1.20: FORBL= 1 TO 100: NEXTDL '• POKE 

SO+1,0 

400 U.UT0620 

420 H<SQ)=1 

422 POKESO+1.30 = FORBL=1TO50 = NEXTDL : POKES 
Q+ 1.0 

430 IFSQ>0ANDSQ<4THENW=2 : V=SQ*7-5 
440 IFSQ>3ANDSQ<7THENW=13:V=<SQ-3)*7-5 
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460 FORJ=0TQ3 
470 PRINTLEFT$(RT$,J+V>SPC<W); n 
480 NEXTJ 

490 IFM=2THENG0T0563 
500 PRINTLEFT$<AT$,V+ 

**i j M gjj jjjjj H 

510’PRINTLEFT*CRTS,V+1> SPC(W+3); 


:24: V=<SQ-6)3! 

1 7-5 

iPC<W>;" 

ii 

;PC:a-.H-3) ; CriRi! 

>(156 

:PC<W+3>;" i 

M 

:PC<W+3); "• 5 1 

r ;ch 


R$<144) 

559 GOTOS20 

560 PR I NTLEFTS (RT$, V+0> SPC < W+3); CHR$ (5); 

"®@ 9 " 

580 PRIHTLEFT$<RT$,V+1)SPC <W+3);"® fl" 

600 PR INTLEFT* < RT$, V+2) SPC < W+3 >;" " J CH 

R*<144> 

620 NEXTN 

630 HH=0: FOR.J=1T09 
643 IFH (.J )=3THENHH= 1 
650 NEXTJ 

655 IFHM=1THEH0QT0324 
660 END 

10000 REM SET UP SOUNDS 
10010 30=54272 

10020 F0RT=0TO23: POKESO+T.. 0: NEXT 
10040 POKESO+5,9 :REM RTTRCK/DECRV 
10050 P0KES0+6,240:REM SUSTRIN/RELERSE 
10060 P0KES0+24;15 : REM VOLUME 
10070 POKESO+4,17 : REM WAVEFORM 
10080 RETURN 
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Would you believe that there are people living in this country who 
don’t know where they are - on a map? Now we are sure that clever 
young readers of this book will have a good idea of where they live 
but will they know where other people live? 

To find out we have devised this game to help you find out where 
the major cities in England, Scotland and Wales are to be found. 


Howto play 

The computer will draw a map for you and give you eighteen towns 
to choose from. 

The computer will then choose, at random, a town for you to iden¬ 
tify. A bright dot will indicate the town in question. 
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Tries and scores are shown on the screen. 

If you are wrong it will be a case of trying until you get it right. 
After all, it pays to know where you are - doesn’t it? 


Programming Notes 

This program uses the same map drawing routine as ‘counties’ and 
‘compass’. If you are typing in all of them you will save yourself 
some work if you just type in the lines that are different with your 
first program still in the computer. Don’t forget to save your first 
program onto a tape. 


Program 


10 REM mmm-mnm*. 

20 REM * * 

22 REM * TOWNS * 

24 REM * * 

25 REM if if if if if if if if $ if if if if 

27 DIMSX < 18 >. S'V < 18 >, T WN$ < 18 > 

30 RT$=CHR$<17):F0RT=1T06:RT*=RT$+RT$:NE 
XTT : FIT $=CHR$ (19) +RT $ 

35 POKE53280,6: P0KE53281.. 15: PR I NTCHR$ < 14 
4) 

40 TR=0 : SC=0 
50 GOSUB9000:GOSUB7800 
60 F0RT=1T013 

70 F’OKESP+21,0 •' PQKESP,SX<T): POKESP+1, SV< 
T):P0KESP+21,1 

75 PRINTLEFT$<RT*,10)SPC(23>" 

it 

80 PRINTLEFT*< flT$,10)SPC <23 > TWN*<T) 

90 F0RQ=1T015:FORBL=1TO50:NEXTBL : P0KESP+ 
21.0: FORDL=1TO50 : NEXTDL •' POKESP+21.1 : NEXT 
100 MEXTT 

110 R=INT<RND<1>#18)+1 
120 PRINTLEFT$(RT$.. 3)SPC(20)"SCORE : "SC 
130 PRINTLEFT$ < RT$.3)SPC< 30)"TRIES : "TR 
135 PRINTLEFT$(RT$.10)SPC<23>" 

ti 

140 PRINTLEFT$<RT$,10)SPC<23>"WHICH TOW 
N " 
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145 PRINTLEFT$<AT$,12>SPC<23)" 

ti 

150 PR I NTLEFT$ < RT$.. 12) SPC < 23)" IS THIS ?" 
155 PRINTLEFT$CAT$, 14)SPC<23>" 

I! 

157 POKESP;SX <R):P0KESP+1,SV<R) 

160 PRINTLEFT$<RT$,14)SPC<23>; : INPUTRNS 
165 IFRSC<ANS$><65 ORASC<ANS$»90THENAN 
$=MID$(ANS$,2):GOTO165 
170 TR=TR+1 

180 IFRNS$=TWN$<R)THENGOTO240 
190 = 

200 GOSUB5000 : FRINTLEFT$<RT$> 12)SPC<22>" 
NO! THAT IS WRONG" 

210 FORBt=1TO100:POKESO+1, RNB<1> *256:NEX 

TBL : POKESO+1>0 

220 POKESO+ 1, 0 : GOSUE5000 

230 GOTO120 

240 GQSUB5000:PRINTLEFT*<RT$,12)SPC<22>" 
CORRECT! 

250 FORR=1T04:FORB=1T02:F0RC=1T05 = FORD=1 
T06:P0KESQ+1,A*B#C#D : HEXTB,C,B,R 
260 SC=SC+1 

270 POKESO+1 i 0 : GOSUB5000 
280 GOTO110 

5000 REN CLEAR PART OF THE SCREEN 

5010 FORT=5T023:PRINTLEFT*(AT$,T)SPC(20) 

" ":NEXTT:RETURN 

7800 REM SET UP SPRITE 

7010 SP=53243 

7020 POKESP+21,0 

7030 FORT=0TO63:P0KE832+T,0:NEXTT 
7040 P0KE832,96:P0KE835,240:P0KE838,240: 
P0KE841,96 

7050 POKE2040,13:POKESP+21,1:POKESP+16,0 
:P0KESP+39j 0 

7060 FORT=1TO18 = READSX(T), SV CT >, TWN$ <T>: 
NEXTT 

7070 REM SET UP SOUNDS 

7880 S0=54272:FORT=0TO28:POKESO+T,0:NEXT 

T 

7090 P0KES0+5,9 = P0KES0+6>240:POKESO+24,1 

5 ; P0KES0+4.. 33 

7100 RETURN 

9000 REM DRAW MAP 

9005 PRINTCHR$<147) 

9010 FORT=1024TO1944STEP40 


+!•> CO 
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9915 FORTT=0TO18 
9820 REABX 

9030 POKET+TT ,X : POKE (. T+TT+54272), 5 
9040 NEXTTT,T 
9850 RETURN 

10000 DATA 32,32, 32; 32.132.' 32; 32; 32; 252; 9 
8; 98;32;32;32;32;32;32;32;32 
10010 DATA32;32;32;32;32;254;32;32;l^R,1 
60;236;32;32;32;32;32;32;32; 32 
10020 DATA32; 32; 32; 32,32; 126; 32; 254160; 
236; 32; 32; 32;32;32;32;32;32;32 
10030 DATA32;32;32; 32;58; 118,108/160,160 
;160,98;160,160;252,32,32,32,32;32 
10040 DATA32,32,32,32,58 ..124,108,160,160 
; 160; 160,160;160;126,32,32,32,32,32 
10050 DATA32,32,32,32,46,32,160,160,168, 

160.160.160.160.32.32.32.32.32.32 

10060 DATR32,32,32,32,32,108., 1 @8,168,160 
,160,160,160,126,32,32,32,32,32,32 
18070 BATA32,32,32,32,32,32,245,160,160, 

160.160.120.126.32.32.32.32.32.32 

10088 DATA32,32,32,32,32,126,244,118,160 
,160,168,160,252,32,32,32,32,32,32 
10090 DATA32,32,32,32,32,32,126,254,160, 

160.160.160.160.97.32.32.32.32.32 
10100 DATA32,32,32,32,32,32,32,160,160,1 

60.160.160.160.252.32.32.32.32.32 
10110 DATA32,32,32,32,32,32,32,126,119,2 

54.160.160.160.160.121.32.32.32.32 
10120 DATA32,32,32,32,32,32,32,255,32,11 

8.160.160.160.160.160.123.32.32.32 ' 

18130 DATA32,32,32,32,32,32,32,32,32,32, 

254.168.460.160.160.160.32.32.32 

10148 DATA32,32,32,32,32,32,32,32,32,32, 

160.160.160.160.160.223.32.32.32 

10150 BATA32,32,32,32,32,32,32,126,248,2 
54,160;160,160,160;160;160,223,32,32 
10168 DATA32,32,32,32,32,32,32,226,168,1 
60,160,160,160,160,160,160,252,98,123 
18170 BATA32,32,32,32,32,32,32,32,160,16 
0,160,160,160,160,160,160,160,160,160 
10188 BATA32,32,32,32,32,32,108,254,160, 
160,160,160,160,160,160,160,160,160,236 
10190 BATA32,32,32,32,32,124,236,251,168 
,160,160,168,160,160,160,160,168,160,32 
10280 BATA32,32,32,32,32,32,32,32,124,12 
0,168,168,160,160,160,192,192,98,123 
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10210 DATA32, 32; 32,32,32,32.. 32,254,247, 
54, 160, 160; 160; 160; 160; 160; 160; 160; 126 
10220 DATA32,32,32,32,32.. 32.. 108; 160160 
160;160,160,160;120;239;120;226,32,32 
10230 DATA32,32,32,32,32,254,239,251,23 
,32,32,99,32,32,32,32,32,32,32 
10240 DATA149,225,"BRIGHTON" 


10250 DATA108,213,"BRISTOL" 
10260 BATA96,211,"CARDIFF" 
10270 DATA124,192,"COVENTRY" 
102S0 DATA142,159,"HULL" 

10290 DATA127,157,"LEEDS" 
10300 DATA103,169,"LIVERPOOL" 
18310 DATA147,212,"LONDON" 
19320 DATA129,133,"NEWCASTLE" 
10330 DATA85,236,"PLYMOUTH" 
10340 DATA124,85,"ABERDEEN" 
10358 DATA84,122,"AYR" 

10360 DATA117,101DUNDEE" 

10370 D AT A111,112," ED INBIJRGH" 
10380 DATA95,113,"GLASGOW" 
10390 DATA103,78,"INVERNESS" 
10400 DATA98,107,"STIRLING" 
10410 DATA100,54,"THURSO" 
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You may have heard of voles and owls but we’ll wager you haven’t 
been on a vowel chase before. 


You’ll find yourself in the form of a little man running around an 
alphabetic maze collecting points for each vowel (A, E, I, O, U) 
which you munch. 

But beware, there is a maze keeper out to munch you. 


How to play 

Your tiny figure can be moved up and down using keys Q and A. 
For left and right use O and P respectively. Every time you munch 
a vowel you get one point and the space is filled in by your com¬ 
puter with a consonant, or even another vowel. 
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If you get all the vowels from the screen before you are caught you 
get 10 bonus points. 

However, you also lose one point for every consonant you eat so 
try and stick to the maze corridors or you could wind up with a 
minus score. 

As soon as the game is completed, or you have been munched up 
by the mazekeeper, your computer will ask you if you want to play 
again in which case you press Y or N for yes or no and press 
RETURN. The only advantage you have over the maze keeper is 
that you can run through the letters, which will cost you minus 
points, but the maze keeper must keep to the aisles. 

If the maze keeper gets you and the game ends the screen will light 
up all the vowels you have missed. 


Program 


10 rem i mmmmmmmmmmw. 

20 rem * * 

22 REM * VOWEL CHASE * 

24 REM % * 

25 REM WM 

27 P0KE52,48:P0KE36,48:CLR 

30 AT$=CHR$(17) : F0RT=1T06 : AT$=AT$+AT$:HE 
XTT : AT$=CHR$<19)+AT$ 

32 PRINTCHR$<147):GOSUB7080 

35 POKE53280,8 : P0KE53281,10:PRINTCHR$(14 

4) 

110 SC=0:GOSUB10000 

112 PRINTLEFT$<AT$,DSPC<21>;"HI SCORE: 

m • 

120"PRI NTLEFT* < AT$, 1> SPC<4 > J" SCORE: " J SC 

130 PR=17 

140 P.F-17 

150 PC=15 

160 CP=T5 

170 GR=5 

189 RG=5 

190 GC=15 
200 CG=15 
286 FF=8 

210 PRINTCHRfC144):FORJ=4T022STEP2 
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226 FQRK-4T034STEP2 

238 PRINTLEFT$(RT$,J>SPC<K> CHRf<INT <RND( 
l)#26)+65> 

235 NEXTK,J 

240 PRINTCHR$<30)=FDRJ=3T023 

242 PRINTLEFT$<RT$,J)SPC(3)CHR$(18> >" M ; 

244 PRINTLEFT*(RT*,J)SPC (35)CHR* (18);" " 

245 NEXTJ 

246 F0R.J=3TO35 

247 PRINTLEFT*< RT*,3>SPC (J>CHR*(18)j" "; 

248 PRINTLEFT*(RT*.23)SPC < J)CHR*<18)1" " 

250 NEXTJ : PRINTCHR* < 5) 

260 PRINTLEFT*(RT*,PR)SPC(PC) ; CHR*<35) 
270 GOTO970 
300 fi=PEEK<197) 

310 IFR=62 FIND F'R>4THENPR=PR-1 
320 IFfl=10 flNDPR<22THENPR=F'R+1 
330 IFfl=38 RNDP04 THENPC=PC-1 

349 IFR=41 RNDPC<34 THENPC=PC+1 

350 IFPC=CP RNDPR=RP THENGOTO530 

360 G*PEEK<984+PC+40#PR) : IFG<32THENG=G+6 
4 

362 G*=CHR*(G) 

364 IFG*=""ORG*=" "THENGOTO410 
378 IFG*="R" ORG*="E ,f QRG*="I"0RG*="0"GRG 
$="U" THENGOTO430 
338 SC=SC~1 

400 POKESO+1,5:FORDL=1T039:NEXTDL:POKESO 

+ 1.0 

410 GOTO450 

420 IFPEEK<984+PC+40#PR)=36 THENGOTO800 
424 GOTO450 

430 POKESO+1.25:FORDL=1TO30:NEXTDL:POKES 

0 + 1.0 

440 SOSC+1 

450 PRINTLEFT*<RT*,PR)SPC <PC)jCHR* < 5);CH 
R*<35) 

460 IFRP/2-1NT <RP/2) RNDCP/2=INT(CP/2)TH 
ENG0T01100 

480 PR I NTLEFT * < RT*.. RP) SPC < CP)1" " 

430 RP=PR 
500 CP=PC 

510 PRINTLEFT*(RT*,1)SPC<10);" "ISCICHR* 
(157).:" " 
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539 RETURN 

600 IFGR>PRTHENGR=OR-1 : GOTO650 
610 IFGR<PRTHENGR=GR+1 : G0T065@ 

620 IFGC>PCTHENGC=GC-1 : GOTO650 

639 IFGC<PCTHENGC=GC+1 : GOTO650 

640 GR=GR+1 NT < RND <1)#3 >-1: GC=GC+1 NT '1RND < 
1)*3)-1 

650 IFP£EK<984+GC+40*GR)=35 THENGOTO800 
652 G1 = INT < RND <1)#3)-1= G2=INT<RND <1) #3 >- 
1 

654 IFGR/2=INT<GR/2)flNDGC/2=INT <GC/2)THE 
NGR=GR+G1 : GC=GC+G2 

660 IFGR/2=INT <GR/2)flNDGC/2=INT <GC/2)THE 

NGR=RG:GC=CG:GOTO720 

670 PRINTLEFT$<fiT$..RG)SPC<CG>;" " 

680 PRINTLEFT*<RTS,GR)SPC< GC); CHRS <31);C 
HRS<36) 

698 RG=GR 
700 CG=GC 
720 RETURN 

300 PRINTLEFTS<RTS,RG)SPC < CG);" " 

310 PRINTLEFTS<RTS,RP)SPC<CP );" " 

320 FORJ=1TO10 

830 PR INTLEFTS < RTS, GR) SPC (GC>CHRS < 5 ) j CH 
RS<35) 

840 FORDL* 10TO20: POKESO +1 .• DL#J: NEXTDL 
850 PRINTLEFTS< RTS,GR)SPC <GC);CHRS < 31)jC 
HRS<36) 

852 NEXTj:P0KE80+1,0 
854 F0RJ=4TQ22STEP2 
856 F0RK=4T034STEP2 

858 S=PEEK<984+K+40#J):IFS<32THENS=S+64 

859 SS=CHRS<S) 

860 IFSS="fi"ORSS="E"ORSS="I"OP.SS="0"ORSS 
="U"THENGOSUB1288 

862 NEXTK 

864 NEXTJ 

865 IF FF=1THENG0T0878 

866 PR INTLEFTS < RTS.. 10) SPC < 8); CHRS (144); " 
BONUS 10 POINTS" 

868 : 

870 = 

872 SC=SC+10 

874 PRINTLEFTS<RTS,1)SPC <10 );" ";SC;CHRS 
<157);" " 

878 PRINTLEFTS< RTS,24)SPC <10 >;CHRS<144)J 
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873 WA IT197,64 : POKE 198,0 : 1 NF'UT" PLfiV flGfll 

n ";q$ 

880 IFLEFT$(G$,1)="N"THENGOTO1800 
90S IFSOHSTHENHS=SC 
910 PRINTCHR$(147) 

920 GOTO110 
970 GOSUE300 
988 GQSUES88 
984 GOSUE300 
990 GOTO970 

1000 PRINTCHR$(147) : END 
1100 PR I NTLEFT$ ( AT$ ,RP)SPC( CP)CHR$ (144) 
CHR$ (I NT (RNB (1) *26) +65): G0T0439 
1200 FF=1:PRINTCHR*(28):PRINTLEFT$(RT$,J 
)SPC(K);S$:RETURN 

7000 REM ### READ IN GRAPHIC DATA ### 

7020 P0KE5S334,PEEK(56334)RNB254 

7030 POKE1,PEEK <1)AND251 

7040 FORI=0TO511:POKE12288+1, PEEK(53248+ 

I) : NEXTI 

7050 POKE1 ,'PEEK(i)0R4:P0KE5S334,PEEK(563 
34)0R1 

7060 FORI=0TO15:REABA-POKE12568+I,A:NEXT 
I 

7079 P0KE53272,(PEEK(53272)AND249)+12 

7080 RETURN 

7098 DATA24,24,60,90,24,3S,3S, 182,0,69,1 
26,219,255,195,255,179 
10080 REM SET IJP SOUNDS 
18010 30=54272 

18820 FGRT=9T028 : POKESO+T,0:NEXT 
10940 P0KES0+5,9 =REM ATTACK/DECAV 
10858 POKESO+S,240:REM SUSTAIN/RELEASE 
10960 PQKESO+24,15 : REM VOLUME 
18070 P0KES0+4,17 :REM WAVEFORM 
10980 RETURN 
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Quick, quick, there is a plane crew parachuting down from a 
damaged airliner into a pine forest and the pilot’s parachute hasn’t 
opened - only you can save him from crashing into the ground. 


Howto play 

At the top of the screen you will see the height and the speed of the 
pilot’s descent. To open the parachute you must divide the height 
by the speed to find out how long it will take for the pilot to land. If 
your answer is correct the parachute will open and your pilot will 
float gently to the ground. 

Your crew have three lives between them so try and keep them 
alive as long as you can. 
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The sooner you get the answer and type it in and press RETURN 
the earlier the parachute will open and the more points you will 
receive. 


Programming Hints 

You can make the game easier by reducing the numbers in lines 
210 and 220. 


Program 

10 REM 

20 REM * $ 

22 REM * PARACHUTE # 

24 REM * % 

25 REM 

30 P0KE52,43: P0KE5S, 48: CLP. 

32 GOSUE7000 

35 AT#=CHR$(17):FORT*1TOS:RT$=RT#+RT$:HE 
XTT : AT$=CHR$(19)+AT# 

37 P0KE53281,3:POKE53280, 6 ■ GOSUB18080 
40 LV=3 
50 HS=0 
60 SC=0 
70 N#="" 

80 TR=0 

84 P0KES0+1,30:F0RBL=1TO50:NEXTDL : POKESQ 

+ 1,0 

86 PRINTCHR$(147) 

200 F0KES0+1,30:FQRBL=1TO50:NEXTDL : POKES 

0 + 1,0 

210 SP=INT(RNB(l)*90)+9 
220 RNS=INT (RND(1)#12) +1 
238 HT=RNS#8P 

240 PRINTLEFT#(AT#,3)SPC(4);CHR$<144);"H 
EIGHT: "HTJCHR$( 157)" " 

250 PRINTLEFT$ < RT$,3)SPC(25)"SPEED : "SP; 
CHRT < 157)" " 

260 PRINTLEFT$(RT$,1)SPC(27)"LIVES: ";LV 
;CHR$<157);" " 

270 PRINTLEFT#(RT$,1)SPC(1)"SCORE = ";SCJ 
CHRf (157).:" " 

280 PP. I NTLEFT# (AT#, 1) SPC (13);" HI SCORE: 
"JHS 
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290 PRINTLEFT$(RT$,23)SPC(16);" TIME ?? " 
300 PRIHTCHRf(149):FOR J*1T038 
310 IFJM6 RND J<22 THEN GOTO340 
320 PR I NTLEFT* (AT*,21)SPC (J )CHR* (40 ) 

330 PR I NTLEFT* (RT*.. 20) SPC ( J ) J CHR$ (41) 

340 NEXTJ 
350 FORD=4TO20 

360 PR I NTLEFT * (RT$.. D-1) SPC (19).:" " 

370 POKESO+l,30-n 

380 PR I NTLEFT* (RT$, D) SPC (19); CHR* (31)CH 
R*(39) 

390 FORT=1TO80 
400 GETR* 

410 IFR*=""THEN GOTO4S0 

420 IFR$=CHR*(13) THEN POKESO+l,0:G0T056 

0 

430 IFR*>"9" OR RK"0” THENGOTO460 
440 N*=N*+R$ 

442 FORL=1TO50 : NEXTL 

450 PRINTLEFT*(RT*, 23)SPC(21)CHR*(144); 
N*;" " 

460 POK.ESO+1 j 0 : NEXTT 
470 NEXTD 

480 PRINTLEFT*(RT*,20)SPC(19);" " 

485 PRINTLEFT*(RT*,21)SPC(19);CHR*(42) 
490 POKESO+l,10:P0KES0+4,129:FORDL=15TO0 
STEP-1 : P0KES0+24.-DL 

495 FORDD=1TO30 : NEXTBB : NEXTBL= POKESO+l , 8 
:POKESQ+4,17:P0KES0+24, 15 
500 PR I NTLEFT *( RT*, 21) SPC (19); CHR* ( 42 ) 
510 LV=LV-1 

520 FORL=1TO1000:NEXTL 

530 IFLV=0THENGOTO790 

540 PRINTLEFT$(RT$j 21)SPC(19);" " 

550 GOTO210 
560 : 

562 IFN*=""THENGOTO4S0 
564 TR=TR+3 
570 Cfl=VRL(N*) 

580 IFCR=RNS THEN GOTQ630 
590 : 

600 PR I NTLEFT* (RT* .• 23) SPC (16);" TI ME ?? 

II 

610 N$="" 

620 G0T0468 
630 : 
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640 SC=SC+23-D-TR 

650 PRINTCHR$<129) =F0RJ*DT028 

656 POKESO+l, 30-J 

660 PRINTLEFT$ < AT$ > J-2)SPC(18)" " 

670 PRINTLEFT$<AT$,J-1)SPC<18)" " 

680 PRINTLEFT$ < AT$,J)SPC <18)CHR$ < 3S)+CHR 
i<36) 

690 PRINTLEFT$< AT$,J+1)SPC<18); CHRf(37) + 
CHR$(38) 

700 : 

710 FORDL=1TO10 : NEMTDL 
720 NEXTJ:POKESO+1,0 
730 : 

740 : 

742 PRINTLEFT!<AT$,12)SPC(9)jCHR$(144); M 
A SUCCESSFUL LANDING!" 

744 PRINTLEFT$<AT$,14)SPC<11)J "SCORE ";2 
3-B-TR;" POINTS" 

750 FORDL=1TO750 : NEXTDL 

760 PRINTLEFT!(AT!,20)SPC(18);” " 

770 PRINTLEFT!(AT!,21)SPC <18);" " 

772 PRINTLEFT!(AT!,12)SPC<6);" 

ll 

774 PRINTLEFT!(AT!,14)SPC(8) i" 

II 

776 N!="" 

778 TR=0 
780 GOTO210 
790 = 

800 : 

810 PRINTCHR!(147) 

820 PRINTLEFT! (AT!, 8) SPC (10).:"VOUR SCORE 
IS 11 J qc 

830 IFSC>HS THEN HS=SC=PRINTLEFT!(AT!,12 
)SPC<10);"R NEW HIGH SCORE!" 

850 PRINTLEFT!(AT!,18)SPC(10)1" PRESS AN 
V KEV 

855 PRINTLEFT$(flT$.'20)SPC(10);" TO PLflV 
AGAIN " 

860 GETQ! 

870 IFQ!=""THEN GOTO 868 
880 IFQ!="N" THEN GOTO 930 
890 SC=0 
980 LV=3 

904 h$="" 

986 TR=0 
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910 F'RINTCHR$( 147) 

920 GOTO210 
930 : 

940 PRINTCHR$(147) 

950 END 

7000 REM RERB IN GRRPHIC DRTfi -:m: 

7020 P0KE5S334 ,PEEK (56334)RND254 

7030 POKE1,PEEK (1)RND251 

7040 FORI=810511:POKE12288+I,PEEK(53248+ 

I):NEXTI 

7050 POKE1,PEEK(1)0R4:P0KE56334,PEEK(568 
34)0R1 

7060 FORI=0TO63:RERDR:POKE12568+I,R:NEXT 

T 

7070 DRTR0,7,15,31,63,127,255,81 
7072 DRTfiO.224,240,248,252,254,255,18 
7074 BRTR41,20,9,3,5,1,2,2 
7076 DRTR36,72,16,128,64,0,128,128 
7078 DRTR0,0,16,56,84,16,40,40 
7088 DRTR24,24,24,24,24,24,60,126 
7082 DRTR0,24,60,126,255,255,126,24 
7084 DRTR0,0,0,0,129,90,126,255 
7095 P0KE53272,<PEEK(53272)RND240)+12 
7100 RETURN 

10000 REM SET UP SOUNDS 
10010 80=54272 

10020 FQRT=8T028:POKESO+T,0:NEXT 
10040 P0KES0+5,9 :REM RTTRCK/DECRV 
10050 P0KES0+6,240 : REM SUSTRIN/RELERSE 
10060 P0KES0+24,15 : REM VOLUME 
10070 P0KES0+4,17 : REN WAVEFORM 
10380 RETURN 
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Racer 



It's the last Grand Prix of the year and there are only two drivers 
who can win the World Championship - you or your opponent. 
There are two cars to choose from and the finishing line is in sight. 

Only one can win and it’s done by brain power not horse power. 


Howto play 

The game is for two players so firstly type in your names and press 
RETURN after each one. 

Both cars appear on the screen and the first player is set a problem 
to solve before moving their car. 
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The question is ‘What is your estimate of the distance travelled?’ 
At the top of the screen you are shown the speed and the time 
taken by the car. You must work out how far you have come. The 
more accurate your answer the further your car will be moved by 
the computer so think carefully before you type in your answer. 

The winner’s name will be flashed on the screen and you will be 
asked ‘do you want to play again’. Press Y or N for yes or no. 

Hint To help you, 36 kilometres per hour = 10 metres per second. 
So a car travelling at 72 k. per hour for 20 seconds would 
cover 400 metres. 


Program 

10 REM # %%%%%%%% % % %#% % 

20 REM * * 

22 REM % RRCER * 

24 REM * * 

25 rem mmmmmmnmmmm. 

27 P0KE52,48 : P0KE56,48 : CLR 

39 AT*=CHR* <17): FORT* 1T06: RT*=AT$+AT*: HE 
XTT : AT*=CHR*<19)+AT* 

32 PRINTCHRf<147) : GOSUB7000 
35 PQKE53288,14=P0KE53231,12 

40 BIMP* <2):C*<1)=CHR* < 23):C$< 2)=CHR*< 31 
) 

45 GOSUB10800 
50 IUMN<2) 

140 PRINTLEFT* < AT*,9)SPC < 5)"WHAT RRE THE 
PLRVERS NAMES? ” 

150 PRINTLEFT* C AT*,11)SPC < 5); 

160 INPUTP*<1) 

170 PRINTLEFTf<RT$,13)SPC<4); P$<1);" VOU 
HAVE THE RED CAR " 

180 PRINTLEFT*< AT$,15)SPC < 5)J 
130 INPUTP$<2) 

200 PRINTLEFT$<AT$, 17)SPC<4);P$<2)" VOU 
HAVE THE BLUE CAR " 

210 F0RDL=1TO300 : NEXTDL 
220 PRINTCHR$<147) 

240 FORJ=0TO33 

250 PRINTLEFT*<AT$,9)SPC<J )"%'" 

260 PRINTLEFT*<AT*,15)SPC<J)"*" 
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270 NEXTJ 
280 FGRJ=10TQ14 

290 PRINTLEFT*<AT*,J)SPC < 37 >"*" 

292 NEXTJ 
300 N<1)=1 
310 N<2)=1 

320 PR I NTLEFT$ < AT*; 11) SF'C <1) C* <1 ); CHR* (3 
5) 

330 PR. I NTLEFT* < AT*, 13 > SF'C (1) C* < 2); CHR* <3 
5) 

340 F0RK=1T02 

342 IFK=1THENPRINTC*<1) 

344 I FK=2THENF'R INTC*< 2) 

350 TM=INT <RND<1)#90)+10 

360 SP=INT <RND <1) #150)+58 

370 PR I NTLEFT $ <AT*; 2 ) SF'C < 0)" SPEED : ";SP; 

CHR$<157);" KM/HR " 

380 PRINTLEFT*(AT*;2)SPC<22)"TIME: MTM; 
CHR*(157);" SEC " 

382 PR I NTLEFT* (AT*..18)SPC<10)J" 

li 

385 PR I NTLEFT* (AT*, 18) SF'C <19- < LEN < P* < K >) 
72>>;P*(K) 

390 PRINTLEFT*(AT*; 20)SPC(8)" WHAT IS VO 
UR ESTIMATE " 

392 PRINTLEFT*<AT*;22)SPC<6)" OF THE DIS 
TANCE TRAVELLED ?" 

395 PR I NTLEFT* < AT*, 24) SF'C < 1V 

397 PR I NTLEFT* < AT*; 24) SF'C <11) ; 

400 INPUT"NUMBER OF METRES ";ANS* 

485 IFVAL<ANS*)<1THEN390 
410 ANS=VAL<ANS*):CA=<SP#TM#1008)73688 
420 SC=INT <5—AES<<CA-ANS> 758)> 

438 FORJ=N<K ) TON <K)+SC 

448 PR I-NTLEFT* <AT*.. 9+K#2) SF'C <N <K))" 

458 N<K)=N(K)+1 

468 PR I NTLEFT* < AT*.. 9+K#2 > SPC < N < K)) j C* < K) 

;CHR*(35) 

470 POKESO+1;20#K = FORDL=1TO30 = NEXTDL : POK 
ESO+1;0 

488 IFN <K)=38THENGOTO520 
490 NEXTJ 
500 NEXTK 
510 GOTO340 

520 P0KES0+4;33:F0RQ=4T01STEP-1 
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525 FORDL=1TO50STEP2:F0RDD=1T04:POKESO+1 
,DL#DD/Q : NEXTDD,DL 
527 NEXTQ 

530 POKESO+10 : P0KES0+4,129 
540 FORDL=1TO500:NENTDL 
550 PRINTCHR$<147> 

560 PRINTLEFT$<AT$,8)SPC<8);P$<K>;" IS T 
HE WINNER!" 

570 PRINTLEFT*< AT$,14 >SPC< 9);"PLflV RGflIN 
? (V/N) " 

580 GETA* 

590 IFA$=""THENGOTO580 
600 I FA$=" V"THENGOTO220 
610 END 

7000 REM ##* READ IN GRAPHIC DATA 
7020 P0KE56334,PEEK<56334)ANB254 
7030 POKE 1, PEEK (1 AND251 
7040 FORI=0TO511:POKE12288+1,PEEK<53248+ 
I):NEXTI 

7050 POKE1,PEEK<1)0R4 : P0KE56334,PEEK(563 
34J0R1 

7060 F0RI=8T015=READA:POKE12568+I,A:NEXT 

T 


7070 DATA0,102,255,255.255..! 02, 0, 0 
7080 DATA204,284,51,51,284,204,51,51 
7095 P0KE53272,(PEEK(53272)AHD240)+12 
7108 RETURN 


10080 REM SET UP SOUNDS 
18018 80=54272 

10028 FORT=0TO28:POKESO+T,0:NEXT 
10840 P0KES0+5,9 :REM ATTACKXDECAV 
10058 P0KES0+6,240:REM SUSTAIH/RELEASE 
10868 P0KES0+24,15 : REM VOLUME 
10078 POKESO+4,129 : REM WAVEFORM 
10880 RETURN 
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Proverbs 



ARRANGE THE WORDS INTO A PROVERB 


USE 

USE 

USE 

USE 




FI TO MOVE THE 

F7 TO MOVE THE O' DOWN 

D TO 'DELETE' A WORD 

I TO 'INSERT' A WORD 


> FALL 
BEFORE 
COMES 
A 

PRIDE 



There is an old proverb that says 'every cloud has a silver lining’ 
and another which says It’s an ill wind that blows nobody any 
good'. 

But if your proverbs read 'every silver cloud has a lining’ or 'it’s 
nobody that an ill wind blows any good’ could you sort them out 
and rearrange them properly? 

Well, here is your chance to use the edit and cursor keys on your 
computer to move words around. 


Howto play 

The screen will show you a proverb all jumbled up and you must 
reposition the words to make sense using the function keys to move 
the cursor down and up. 
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Key D to DELETE 
Key I to INSERT 

Line the cursor up against the word you wish to move and press the 
D key to delete. Then move the cursor down the board until you 
line up against the word where you wish to insert. 

Press I and the missing word will be pushed in and the other words 
will rearrange below. 

You keep moving words and using the D and I keys until you have 
the proverb in the correct order. 


Programming Hints 

As the program is random you may get the same proverb twice 
running. You can change lines 900 to 990 to put in your own 
proverbs or well known sayings. 


Program 

10 REM 

20 REM % % 

22 REM % PROVERBS * 

24 REM * * 

25 rem 

30 RT$=CHR*<17) : F0RT=1T06 = RT$=RT$+RT$ : ME 
XTT:RT$*CHR$<19)+RT$ 

32 PRINTCHR$<147)1CHR$<158):OOSUB10000 
35 POKE53280J 6 : P0KE53281>0 
40 BIMW$<10;12) 

42 DIMS<12) 

44 DIMGK12) 

50 C=1 
52 TM=1 
54 MM=0 
56 FF=0 
60 FORJ=1TO10 
70 RERDT* 

80 F0RK=2T0LEN<T$) 

90 IFMID$< T*;K;1)O" "THENC0T0130 
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100 U$ < J > C) =M IB$(T$, TM.. K-TM) 

110 TM=K 
129 C=C+1 

139 NEXTK 

140 C=1 
158 TM=1 
160 NEXTJ 

180 WN=INT(RNB(1)*10)+1 

190 WC=0 : GQSUB1000 

260 F0RJ=1TQ12 

2101F m (UN,J)=""THENGOTO230 

220 UOUC+1 

230 NEXTJ 

250 F0RJ=1T0UC 

260 RsINT<RND<l)#UC)+l 

262 IFQ C R) = 1THENGOTO260 

270 S(J)=R 

272 Q(R)=1 

280 PR I NTLEFT* ( RT$.. J+10)SPC(15)U$(UN,S (J 
)) 

290 NEXTJ 

300 PRINTLEFT*(RT*,11)SPC(14)J">" 

310 CP-11 

320 FORBL=iTQ10 : NEXTBL 
322 GETG* 

330 IFG*~""THENGOTO320 

340 IFG*OCHR*( 136) THENGOTO480 

358 PRINTLEFT*(RT*,CP)SPC(14);" " 

360 CF-CP+1 

370 IFCP>10+UC THENCP=CP-1 
380 PRINTLEFT$(RT*,CP)SPC(14)">" 

390 GOTO320 

400 IFG*OCHR*(133) THENGOTO460 
410 PRINTLEFT*(RT*,CP)SPC(14);" " 

420 CP=CP-1 

430 IFCPCl1TH£NCP=CP+1 

440 PRINTLEFT* < RT* > CP)SPC(14)j ">" 

450 GOTO320 

460 IFG*<>"B"THENGOTO520 
470 IFCPdl 0RCPM1+UC THENGOTO320 
480 IFMMO0 THENPOKESO+1..30:FORDL=1TO100 
:NEXTBL:P0KES0+1,0 : GOTO320 

493 MM=S<CP-10) 

492 FORK=CP-10TO11 

494 S(K)=S(K+1) 

496 NEXTK 
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498 SQ2>=0 

509 PRINTCHR$ <147)•GOSUB1900 

519 FF=1 : G0T0599 

528 IFG$0" I "THEN GOTO320 

522 IFMM=0THEHGOTO320 

539 IFCPai ORCF'Ml+WC THENGOTO320 

549 FOP.J = 12TOCP-10STEP- i 

542 S<J)=S<J-1> 

560 NEXTJ 

570 S< CP-10 MIN 

580 PRINTCHR$(147):GOSUB1000 

582 NN=0 

590 F0RJ=1T012 

592 IFS < J)=0THENGOTO620 

690 PRINTLEFT*<RTf,J+10)SPC <15)jW$CWN,S< 

J)) 

610 IFS( J)OJ THENFF=1 
620 NEXTJ 

630 IF FF=0THENGOTO700 
640 FF=0 
650 GOTO380 

700 FQRQQ=0TO16:P0KE53281^QQ : FORTT=1TO15 
:POKESO+1,QQ*TT:P0KES0+1,250-QQ#TT:NEXTT 
T,QG 

710 POKESO+1 > 0 : P0KE53281 0 

720 PR INTLEFT $ < AT$ .■ 21) SPC (8)J"THAT IS TH 

E CORRECT ORDER" 

730 FORDL=1TO1080 •' NEXTDL 

740 F0RJ=1T012 

750 S<J)=9 

760 Q<J)=0 

770 NEXTJ 

780 PRINTCHR$<147) 

790 GOTO180 

990 BATA" MANY HANDS MAKE LIGHT WORK " 
910 DATA" TOO MANY COOKS SPOIL THE BROTH 

II 

920 DATA " A STITCH IN TINE SAVES NINE " 
939 DATA " EVERY CLOUD HAS A SILVER LINI 
NO " 

949 DATA " DON'T PUT ALL YOUR EGGS IN ON 
E BASKET " 

950 DATA " LOOK BEFORE YOU LEAP " 

960 DATA" MORE HASTE LESS SPEED " 

970 DATA" DON'T CROSS BRIDGES UNTIL YOU 
CONE TO THEN " 
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980 DATA" PRIDE COMES BEFORE A FRLL " 

999 DATA " HE WHO RIDES THE TIGER CANNOT 
DISMOUNT " 

1000 REM DISF'LV THE INSTRUCTIONS 

1010 PRINTLEFT$(AT$,1)SPC <4);"ARRANGE TH 
E WORDS INTO A PROVERB." 

1020 PRINTLEFT$<AT$U3)SPC(S);”USE FI T 

0 MOVE THE •'>•' UP ” 

1030 PR I NTLEFT $ < AT$; 4 > SPC < 6 >" USE F7 T 

0 MOVE THE •'>■' DOWN" 

1048 PR I NTLEFT $ < AT$.. 5) SPC ( 6) 11 USE D T 

0 'DELETE' A WORD" 

1058 PRINTLEFT$ <AT$;6)SPC < 6);"USE I T 

0 ' INSERT'' A WORD" 

I860 RETURN 

10000 REM SET UP SOUNDS 
10010 SCl=54272 

10820 FORT=0TQ28:PQKESO+T,0:NEXT 
10340 POKESQ+5,9 : REM ATTACK/DECAV 
10050 P0KES0+6,240:REM SUSTAIN/RELEASE 
10060 P0KES0+24>15 : REM VOLUME 
10070 POKESO+4,17 : REM WAVEFORM 
10080 RETURN 
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Simon 



This is our version of this very popular game where you have to 
beat the computer by having a good memory. 

You will be shown numbers, or colours, and have only a few 
seconds to memorise them before the screen goes blank and you 
are asked to repeat them in the same sequence as the original. 


How to play 

Your computer will ask if you want to play Numbers or Colours 
and you make your selection using keys 1 or 2. The computer will 
then put a sequence of numbers on the screen and ask you to 
remember them. If you type in the wrong sequence the computer 
will give you a loud ‘raspberry’ and show you the correct answer. 
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To stop playing numbers and switch to colours press the RUN/ 
STOP key and then type RUN again and you will be back at the 
beginning. 

To play the colour sequence you have to press keys 0 to 8, with the 
colours shown on the front of these keys. 


Programming Hints 

The two routines for selecting the numbers and colours are in lines 
210 and 250. Why not try and write your own routines to generate 
letters as well? Remember that computers recognise letters by 
their ‘ASCII’ codes which start with 65 for A, then 66 for B and so 
on. 


Program 


10 REM $ $ $ $ $ $ $ $ $ if! $ $ $ $ $ & $ $ $ % 

20 REM # :«►: 

22 REM $ SIMON * 

24 REM * * 

25 REM if- •■‘I 1 '* fy- $ -¥ $ $ $ H*- $ ■¥• $ & $ £ $ $ ^ 

27 P0KE53286..12: P0KE53281,12 

SO flT$=CHR$<17): F0RT=1T06: RT$=fiT$+flT$ = HE 
NTT : RT$=CHR$<19)+fiT$ 

32 PRINTCHR$(147) 

35 GOSUB16000 
40 T=1 
58 SC=0 
60 TR=0 

70 PRINTLEFT$<RT$,8)SPC< 10)CHR$(5) j" 1. 
NUMBERS" 

80 PR I NTLEFTf (RT$.. 18) SPC (1 @);" 2. COLOURS 

tl 

90 PR I NTLEFT* < RT$, 12) SPC (10)" PRESS 1 OR 


180 GETfi$ 

110 IFR$=""THEN100 
112 : 

120 I FFifO" 1" flNDfifO" 2" THENGOTO180 
130 M$="" 

140 PRINTCHR$<147) 
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145 PR INTLEFT* ( RT*, 1) SF'C ( 14); CHR* (5);" S 
I M 0 N " 

150 PRINTLEFT*(RT*,3)SPC(4);CHR*(158)J" S 
EGUEHCES=";TR 

160 PRINTLEFT*(RT*,3)SPC(20);CHR*(5);"SC 
ORE : ";SC 

170 PRINTLEFT*(RT*,6)SPC(6 >; 

180 C=INT(RND(1)#6)+1 
190 FORJ=lTOT 
200 IFfi*="2"THEHOOTO250 
210 R=INT(RND(1>#10) 

215 POKESO+1, P.+10 = P0KES0+4,17 = FORDL= 1T05 
0 : NEXTDL : P0KES0+4,16 

228 printr; 

240 GOTO270 

250 R=INT(RND(1)$8) 

260 P0KE646 , R: PR INTCHR* ( 32 >; CHR* (18); CHR 
$ <32); CHR* <32);CHR* (17); 

262 PR I NTCHR* < 157)CHR* ( 157); CHR* < 32); CH 
R* (32);CHR*(146);CHR* (145); 

265 POKESC*1 > R+10 : PGKESO+4,17:FORDL=1T05 
0 : NEXTDL ; P0KES0+4,16 
270 R=R-<R$="2") 

275 M*=M*+RIGHT*(STR* (R),1) 

278 FORDL=1TO198:NEXTDL 
280 NEXTJ 

282 FORBL=1TO158 ; NEXTDL 

284 PRINTLEFT* <RT*,6)SPC <6);" 

it 

285 PRINTLEFT*(RT*,7)SPC <6) i" 


287 POKE198,0 

290 PRINTLEFT* <RT*,16)SPC <6); CHR* <144);" 
WHAT IS VOUR ANSWER?" : IFR*="1"THEN315 
295 PRINTLEFT*<RT*,18)SPC<6);:N*="" 

297 B*="" : GETS*=IF<B*<"1"ORB*>"8")RNDB*< 
>CHR* < 13) RNDB*OCHR$ < 29) THEN297 

298 IFB*=CHR*<13)THENPRINT : GOTO330 

299 IFB*OCHR$ < 20) THENGOTO305 

300 PRINTCHR* <157);CHR*(157);CHR*(32);CH 
R* (32)CHR* < 17); CHR* (157); 

302 PRI NTCHR*tT5T>; CHR* (32 >CHR* (32); CHR 
* (145)CHR* (157); CHR* (157); CHR* (157); 

304 N*=LEFT*<N*,LEN(N$)-1):G0T0297 
395 P0KE64S,VRL(B*)~i :: PRINTCHR*(32);CHR 
*(18);CHR*(32);CHR*(32);CHR*(17); 
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386 PRINTCHR*(157);CHR$(157); CHR$ <32);CH 
R$ (32); CHR$ (i 46)CHR$ (145); 

387 POKESQ+1,10+(VRL(B$}~i): P0KES0+4,17*. 
F0RDL=1T05@ : NEKTBL : POKESQ+4, 16 

310 h$=N$+B$ ■' G0T0297 

315 PR I NTLEFT$ (RT$, 16) SPC (6); •• N$="" 

317 B $="": GETS*:IF( B$< "0"ORB$>"9")RHBBK 
>CHR$ (13) RNBB* OCHR$ (28) THEN317 

322 IFB$=CHR$(13)THEHPRINT:G0T0338 

323 I FB$=CHR$(20) THENF’RINTCHR$ (157); CHRt 
(157); CHR$ (157); CHR$ (32)CHR* (157); 

324 1FB$=CHR$(28)THENN*=LEFT*(N*,LEN(N$) 
-1) : G0T0317 

325 PRINTBf;" 

326 POKESO+1.. 18-i- (VRL (B$)) : P0KES0+4,17 : FO 
RDL=1TO50 : NEKTBL=P0KES0+4,16 

327 N$=N*+B$:00T0317 
338 TR=TR+1 

335 IFN$=M$ THENG0T0448 
348 PRIHTCHR$(147) 

350 PR I NTLEFT* ( AT$, 6 ) SPC ( 8 ); CHR$ (5);" THE 
SEQUENCE WAS:" 

368 PRINTLEFT*(RT*,18)SPC(6); 

370 IFA$="2"THENGOTO400 

380 FORJ=1TOLEN( M ):PRINTHIB$(M$,J,1)" 


"; : NEXTJ 
398 G0T0424 
480 FORJ=lTOT 

418 P0KE64S, VRL (MI B$ (M$, J, 1)) + (fl$="2") 

411 PR I NTCHR$ (32); CHR$ (18); CHR$ (32); CHR$ 
(32);CHR$(17);CHR*(157);CHR$(157); 

412 PR I NTCHRf (32)CHR* (32); CHR* (146); CHR 


$(145); 

413 BB=VRL <MI B$ (M*, J, 1)) + (fl$=2 “) 

414 POKESO+1,10+BB:P0KES0+4,17:FORBL~1TO 
50=NEKTBL=POKESQ+4,16 

415 FORBL=1TO108:NEKTBL 
428 NEXTJ 

424 FORBL=1TO490:NEKTBL 
438 GOTO130 
448 : 

458 PRINTLEFT*(RT$,21)SPC(11);CHR*(5);"C 
ORRECT!" 

468 SC=SiJ+T 


470 T—l+i 


474 FORBL=1T0388 : NEKTBL 
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480 GOTO130 

18080 REM SET UP SOUNDS 
18010 80=54272 

10020 FORT=0TO28:POKESO+T;8 : NEXT 
10030 POKESO+1 .• 20 : REM PITCH 

10040 P0KES0+5..9 : REM fiTTRCK/BECAV 
10050 POKESO+S.. 240: REM SUSTRIN/EELE 
13060 P0KES0+24 ..15: rem VOLUME 
16070 P0KES0+4,16 : REM WAVEFORM 
10080 RETURN 
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Balance 


TRIES :1 SCORE:1 

VOUR WEIGHT to BRLRNCE IS 9750 




100a 2000 4.000 5000 

1 0 

OO YOU WRNT R 4000 WEIGHT? 




If you like baking cakes, weighing out sweets or even checking out 
who has the heaviest conker this year then this program is for you. 

You have to work out, in as few moves as possible, from a selection 
of weights, how many you need to balance a set of scales. 


How to play 

On the screen you will see a set of scales with a weight on the left 
handset of pans. 

The computer will ask you for your choice of weights from six 
which will be displayed, and marked, along the bottom of the 
screen. The computer will move along the row and stop at each 
weight and ask you if you wish to use it. For yes press Y and for no 
press N. 
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The screen will show your tries and scores. 


Program 


10 REM #######$###$###$$### 

20 REM * * 

22 REM % BALANCE * 

24 REM # * 

25 rem ##*#*#******##**#*## 

30 AT$=CHR$ <17): F0RT= 1T06: AT$=fiT$+AT$: HE 
XTT:AT#=CHR#<19)+AT# 

32 SC=0 : TR=0 

33 141 P =CHR$ <18) +CHR# < 163) +CHR$ < 165) +CHR# 
<165)+CHR#(165)+CHR#<146) 

34 W2#=CHR$(18)+CHR$ <165)+CHR#<165)+CHR# 
<146) 



GOSUB10000 : POKE 

33280.6: P0KE53281.. 15 

36 

PRINTCHR$<147)j 

CHR#<144) 

40 

K=25 


42 

PRINTLEFT#(AT#, 

2)SPC<4)"TRIES="JTR 

44 

PRINTLEFT#<AT#, 

2)SPC < 23)"SCORE : "SC 


50 F0RJ=1T035STEP5 

60 PR I NTLEFT# < AT#, 23) SPC < J )} K; CHR# <157); 

"G." 

70 K=K#2 
80 NEXTJ 

90 PRINTLEFT#< AT#,6) i■ GOSUB2600 
100 IC=INT < RNB <1)*5)+2 
110 TT=0 

120 R=<INT <RNB<1)#127) +1)#25 
130 PRINTLEFT#<AT#,4)SPC<2)"VOUR WEIGHT 
TO BALANCE IS";R;CHR#<157).;"G." 

140 TR=TR+1 

150 PRINTLEFT# < AT# > 8)SPC<10)" 

160 D=0 : GOSUB1800 

170 PR I NTLEFT $ < AT#,16) SPC < 10) CHR# < 28) J141 

# 

180 K=25 

185 WAIT197 > 64 : POKE 198.' 0 
190 F0RJ=TT07 

200 PRINTCHR# < 144): PR I NTLEFT# < AT#.. 20) SPC 
<5)j" 

201 PRINTLEFT# < AT#,20)SPC <5);"BO VOU WAN 
T A".:KJCHR$<157);"G. WEIGHT?" 

202 GETA# 
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294 IFR$=""THEN GOTO202 

206 IFfl$="V" THEN TT=TT+K : F'RINTLEFTSCfiT 

$, 24) SPC < (.T-1) *5+3)" 1"; 

203 IFfl$0"V" THEN PR INTLEFT $ (RTf.. 24) SPC 
((J-l)#5+3);"0"; 

210 FORD=1TQ50 : NEXTB 
214 K=K*2 

216 POKESO+1,20:FORDL=1T058: NEXTDL ; POKES 
0+1 ; 3 
220 NEXTJ 

222 PR I NTLEFTf (RT$, 3) SPC < 19) CHR$ (31>;W2$ 
226 F0RB=1 TO 5@0 : NEXTB 

223 IFTT<RTHENGOTO330 

233 B= 1 : PR I NTLEFT $ (RTf.. 6); CHRf <144); :GOS 
IJB4000 

240 PR I NTLEFTf (RTf.. 12) SPC ( 1 @) CHR$ ( 28); W1 
$ 

244 PRINTLEFTf(RTf,12)SPC(18)CHRf(31>;W1 
$ 

250 IFTT>RTHENGQTO300 

260 B=0:PRINTLEFTf(RTf.. 6);CHR$(144);:QOS 

IJB4000 

262 PRINTLEFT $ (RTS,12)SPC(10);CHR$(28);W 
If 

264 PR I NTLEFT $ (RTf,12) SPC (18); CHR* (3D; W 

1 $ 

270 FORD1=1TO10:F0RB2=1T05:F0RB3=1T04:PO 
KESO+D B1*B2*B3 : NEKTB3.. B2, B1: POKESO+1,0 
275 FQRBL=1T0583:NEXTDL 
230 SC=SC+1 
290 GOTO340 

303 B=3 : PRINTLEFTf(RTf,6);CHRf(144);:GOS 
UB3000 

310 PR I NTLEFTf (RT$, 8) SPC (11); CHRf (23); W2 

$ 

320 PRINTLEFTf(RTf,16)SPC(18);CHR$(3i)JU 
If 

330 : 

340 IFTTORTHENFORB=1TO153:POKESO+1,RNB( 

1) *256: HEXTB: POKESO+10 

350 00T036 

800 RETURN 

1000 RETURN 

1100 RETURN 
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2000 PRINT" 

2001 PRINT" 

2002 PRINT" 

2003 PRINT" 

2004 PRINT" 

2085 PRINT" 

2086 PRINT" 

2007 PRINT" 

2008 PRINT" 

2009 PRINT" 

2010 PRINT" 

2011 PRINT" 

2012 PRINT" 
2020 RETURN 

3000 PRINT" 

3001 PRINT" 
3802 PRINT" 

3003 PRINT" 

3004 PRINT" 

3005 PRINT" 

3006 PRINT" 

3007 PRINT" 

3008 PRINT" 

3009 PRINT" 

3010 PRINT" 

3011 PRINT" 

3012 PRINT" 
3020 RETURN 
4800 PRINT" 

4001 PRINT" 

4002 PRINT" 

4003 PRINT" 

4094 PRINT" 

4095 PRINT" 

4906 PRINT" 

4907 PRINT" 

4908 PRINT" 

4909 PRINT" 

4010 PRINT" 

4011 PRINT" 

4012 PRINT" 
4920 RETURN 


/I 


/ I 






10000 REN SET UP SOUNDS 
10010 50=54272 

10020 F0RT=0TO28:POKESO+T,0:NEXT 
10040 P0KES0+5,9 : REM flTTRCK/DECflV 
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10050 POKESQ+S t 240:REM SUSTfilH/RELEA3E 
10060 P0KES0+24,15 : REM VOLUME 
10070 PQKESO+4;17 : REM WAVEFORM 
10030 RETURN 
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Chemist 



YOU HRUE 10 LITRES OF FLUID 
HOW MUCH URTER WILL YOU USE? 



A mad scientist has made a highly powerful liquid which, if not 
mixed with water and diluted properly, will explode and destroy 
your house. 

Only you can stop the liquid exploding by working out a formula to 
decide how much water is needed to make the mixture safe. 


How to play 

The screen will show a flask containing the dangerous fluid and 
telling you how many litres the vessel contains. 

You must work out how much water is required to make the fluid 
harmless using the ratio at the top of the screen. If you are correct 
to within 5% you are safe but an error outside this range will mean 
an explosion and the loss of one of your three lives. 
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Type in your estimate of water needed, press RETURN and watch 
the water drip into the flask - Good Luck. 


Programming Hints 

You can alter the ratios given by changing the numbers in lines 60 
and 64. Increase them to make the game more difficult. The 
number in line 50 governs the number of lives you have at the start. 


Program 


10 REM # £ # # $ # $ $ : M % * if: $ $ $ $ % $ if: % $ 

20 REM * * 

22 REM * CHEMIST * 

24 REM $ sjs 

REM 4- 4 ^ $ $ £ .y 4- y y M y ^ ^ y y. :?■' y 

26 GOSUB18000 : SC=0 
28 POKE53230,8 = P0KE53281,4 
30 fiTT^HRTClSO ; F0RT=lT025 : fiT*=flT*+CHR*( 


17 

:NEXT! 





32 

s*a>=CHR$a70>+" 


ii 

+c 

HRT<180) 

34 

ST<2)=" " ; F0RT=1T 

06 : ST(2 

)~ 

ST(2)+CHR$< 

j. O 4 

41': NEXT! 





35 

F0RT=1T0S 





36 

F$ i; i)= f$ (i > +0HR$ ( 

164) 




qq 

F $< 2) =FT(2 > +CHRT( 

175) 




40 

p" ^ if ", “J ) ~ p* if |«{ ,1 4-1 l~| Ptj ! '•£. I. 

185 ) 




.-l '“s 

F$(4)=F$(4)4-CHR$< 

162) 




44 

Fi<5)=Fi<5)+^Ri< 

184) 




46 

Fi(6)=Fi<6)+CHRi( 

183 ) 




48 

Fi < 7) =Fi < 7 ) +CHRi ( 

163) 




49 

Fi<8)=F$C8)+CHR$( 

32):HEX 

IT 


50 

LV-U 





52 

Fi(5)=CHRit18)+F$ <5)+C 

HR 

i( 

i 4 fa) 

54 

Fi < 6 )=CHRi(18)+Fi 

( 6 ) -H_ 

HR 

i( 

146) 

56 

F$<7)«CHR*<18>+F$<7)+C 

HR 

i< 

146) 

58 

FT < 8 ) =CHRT <18 ) +FT (. 8) +C 

HR 

i( 

*1 A £ \ 

X ‘“•ft* / 

60 

fl=INTCRND<l)#4)+l 





64 

B=INT<RNIKl)*5>+5 





65 

PRINTCHRTC147) 





68 

F'RINTLEFTT<fiTT, 11 

)SPC< 

11)C 

HRT<144)"VO 

UR 

RATIO 18=" 
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70 PR IHTLEFT * < ftT *, 1.3) SPC C1) A" PRRTS FUJI 
D TO ";B;" PRRTS WATER" 

74 FORHL=1TO2080 = NEXTDL 
80 PRIHTCHRJC147) 

108 PRIHTLEFT*<AT*,1)SPC(12>CHR*(5);"LIV 
ES LEFT: ";LV 


192 PR I HTLEFT * < AT*, 3) SPC < 9 > CHR* < 31);" V0U 
R RATIO IS "fi.;": ";B 
105 PGKE646, 0 

119 FORT= 1 TO 15: PR I NTLEFT* < AT*, 8+T ) SPC < 25 
)S$<1> : NEXTT 

120 PRIHTLEFT*<AT*,24> SPC <25)S*(2) 

150 R=IHT(RHD < 1)#20) +1 

169 PR I HTLEFT* C AT* ,10) SPC (6 )CHR* (28) j" V 
OU HAVE" 

162 PRIHTLEFT* <AT*,11)SPC <9)R 

164 PRIHTLEFT*<AT*,12)SPC<4)"LITRES OF F 
LUID" 

165 GOSUB800 

170 PRINTLEFT* <AT*,14)SPC <4)CHR* <144);"H 
OW MUCH WATER" 

172 PRIHTLEFT*(AT*,15)SPC<4)" WILL VOU U 
SE? " 


180 PR IHTLEFT* < AT*, 17)SPC < 6)" _"; 

199 PRIHTLEFT* <AT*,17)SPC <6); : IHPUTRHS* 

192 IFVAL < AHS*)=8THEHG0T0190 

194 ANS=VRL(AHS*) 

200 T=(R/A)if:B 

329 IFAHSXT-T/20) AND AHS<(T+T/20) THEN 


OOTO500 

339 POKESG+4,129:P0KES0+6,240 

349 FORT=1TO198:POKE53280,T:P0KE53281,T+ 
1•POKESU+1,i 

350 NEXTT : P0KES0+4,128:P0KES0+6,32 


360 PRIHTCHR$(147) 

365 P0KE53281,6 

370 PRIHTLEFT*<AT*,12)SPC(11)"ONE LIFE L 
OST!" 

398 FORDL=1TO1080:HEXTDL 

400 L'v-LV-1 

410 P0KE53281,4 

420 IFLV=0THEHGOTO590 

430 G0T089 

508 : 

520 GOSUB700 

550 PRINTLEFT*<AT*,25)SPC<5)"THE FLUID I 
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5 SfiFELV DILUTED"; 

560 SC=SC+1 

570 FGRBL=1TO2000:NEXTBL 

580 001868 

530 PRINTCHR*C147) 

600 PR INTLEFT* (AT*, S > SPC (13 >" ALL LIVES L 
03T!" 

6 i 8 PR INTLEFT* < RT*, 12) SPC (8)" VOUR FINRL. 
SCORE I8"SC 

620 END 

780 PR I NTLEFT* (RT*5 > SPC (23) CHR* (164 > 

702 PR I NTLEFT* C'flIf, 6) SPC (28) CHR* < i 17); CH 
R* <177); CHR* (96 >; CHR* <96 ) 

785 P0KE646;6 

710 F0RH=HH+1103 : FORT=1T08 

712 F0RDR=7T022~H : PR I NTLEFT* (AT*., DR)SPC< 

C*J—! **i n l! 

714 PRINTLEFT*<RT*,DR)SPC <28 >" " =HEXTBR 

715 POKESO+4,129 

728 PRINTLEFT*(RT*,23-H)SPC(26)F$<T) 

725 FORBL=1TO50 : NEXTBL 
730 POKESO+4,128 
740 NEXTT 
750 NEXTH 
760 RETURN 

800 HH= I NT (9*fi/C fi+B> >: CO* I NT < RND ( 1) # 15+1 

)=IFCO=4THEN800 

885 P0KE646.C0 

810 FORH=0TOHH:FORT*1T08 

820 PRINTLEFT*<AT*,23-H > SPC(26)F* < T) 

825 FORDL=1TO50 : NEXTBL 
840 NEXTT 
850 NEXTH 
860 RETURN 

10000 REM SET UP SOUNDS 
10010 80=54272 

10020 FORT=0TG28 : POKESO+T,8:NEXT 
10030 POKESO+1 .• 20 : REM PITCH 
10040 P0KES0+5j 49 : REM RTTRCK/DECRV 
10050 P0KES0+6,32 : REM SUSTFl IN/RELERSE 
10060 P0KES0+24..15 : REM VOLUME 
10070 P0KES0+4,128: REM WAVEFORM 
10080 RETURN 
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Odd Word Out 



At last - a chance to prove how quick you are at spotting the odd 
word, and also beat a time clock. 

You will be given a selection of words which either mean the same 
thing or are related in some way except for one ‘odd man out’ 
which must be identified. 


Howto play 

This is a game for two players so put in your names, remembering 
to press RETURN between each one. 

Your screen will now display four words, for example: 


herring, pike, bridge, roach 
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The odd man out here is bridge - the others are all fish. 

It could have been herring, pike, roach, bream, however, and then 
which would have been the odd man out? 

Press the space bar to ‘shoot’ the odd man out. 


Programming Hints 

Random selection may mean that the same sequence may pop up 
twice running. 

If you would like to use your own selection of words then you can 
change the data in lines 800 to 970. 


Program 


10 rem 

20 REM * * 

22 REM * ODD WORD OUT * 

24 REM * * 

25 rem 

35 AT$=CHR$(17):F0RT= 1T06: AT$=AT$+AT$: NE 
XTT:flT$=CHR$<19)+RT$ 

37 POKE53280,11=PQKE53281,1 

49 DIMWf(54) 

45 GOSUB10000 

50 DIMP$(2) 

60 DIMS(2) 

70 C$(0)=CHR$(156) ; C$(1)=CHR$(28) : C$(2)= 
CHR$(30) : C$ < 3)=CHR$(31) 

130 PRINTCHR$(147) 

140 PRINTLEFT$(ATS,4)SPC (9); 

150 INPUT"1 OR 2 PL8YERS ";N 

152 IF1-K10R N>2 THENGOTO150 

168 PR I NTLEFT $ ( ATf.. 6 ) SPC ( 5 );" WHRT PPE TH 

E PLAYERS NAMES ?" 

170 F0RJ=1T0H 

180 PRINTLEFT$(AT#,10+J*2)SPC(5);"PLAYER 

11 j j j ii --y ii • 

190 INPUTP$(J) 

210 NEXTJ 
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220 FORDL-1TO200 : NEXTDL 
230 PRINTCHR*(147) 

240 F0RJ=1T054 

259 REfiDW$<J) 

260 NEXTJ 
270 FORK TON 

272 PRINTCHR*<144) 

275 IFN=1THENPRINTLEFT* <RT*,1)SPC<16); P$ 
<1);":";S<1):G0T0284 

280 PRINTLEFT*(RT*,1)SPCC6>;F'*C D;" : ";3< 
1) 

284 IFN<2THENG0T0294 

290 PRINTLEFT*< AT*,1)SPC <22); P*< 2);" =";S 
< 2 ) 

294 IFS(1)>=100 OR S(2)>=100 THEN 00T077 
0 

300 G=INT<RND<1)*18) 

310 0=0*3+1 

314 PS=10 

315 PRINTCHR$<144) 

320 PRINTLEFT*<RT*,6)SPC(11);"VOUR TURN, 
";P*<T) 

324 FORDL=1TO150:NEXTDL 
338 R1=INT(RND(1)*4) 

335 R2=INT(RND<1)#4) 

340 IFR2=R1 THEN G0T0335 
350 R3=INT < RND(1)*4) 

355 IFR3=R2 OR R3=R1 THEN G0T0358 
360 R4=INT<RND(1)*4) 

365 IFR4=R3 OR R4=R2 OR R4=R1 THEN GOTO 
360 

378 C1=INT<RND<1)#4) 

372 C2=INT<RND<1)#4) 

374 IFC2=C1 THEN G0T0372 
376 C3=INT(RND<1)*4) 

378 IFC3=C2 OR C3=C1 THEN G0T0376 
380 C4=INT(RND(1)*4) 

382 IFC4=C3 OR C4=C2 OR C4=C1 THEN GOTO 
380 

400 E=INT < RND(1)*54) +1 
405 SP$=" " 

410 IF ECG+3 RND E>G-1 THEN GOTO 400 
445 PRINTLEFT*CRT*.IS)SPC(8);" 

ll 

417 X1 = INTC5-CLEN<W*(G))/2)):K2=10-LEN<W 
*<G))-X1 : PRINTC*(C1) 
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413 PRINTLEFT$ <AT*,9)SPC<R1#10);CHR*<18) 
;SP* 

419 PRINTLEFT*< AT*,18)SPC <R1*16);CHR*(18 
); LEFT* (SP*, X1); U$ 03); LEFT* (SP*, X2) 

429 PRINTLEFT*< AT*,11> SPC < R1$10);CHR*<18 

**, j C;p£ 

425 X3=I NT (5- (LEH (W* C G+1))/2)) = X4= 18-LEN 
< W* < G+1)) -X3 : F'R I NTC* < C2) 

428 PRINTLEFT*<AT*,9)SPC(R2*18);CHR* C18) 
i C .P$ 

429 PRINTLEFT*<AT$,18)SPC(R2*18);CHR$<18 
);LEFT*<SP*,X3);W$(G+1);LEFT* <SP*,X4) 

430 PRINTLEFT*<AT$,11)SPC<R2#18);CHR* <18 


) j SP* 

435 X5=INT <5-<LEN(W*(G+2))/2)):X6=18-LEN 
<W*<G+2))-K5 = PRINTC*(C3) 

438 PR I NTLEFT* < AT*, 9) SPC < R3* 18); CHR* (18) 
;SP* 

439 PRINTLEFT$<AT*,18)SPC(R3#18);CHR* <18 
); LEFT* (SP*, K5 )m <G+2)LEFT*<SP*, XS) 

440 PRINTLEFT*<AT*,11)SPC<R3*18);CHR*(18 
); SP* 

445 X7=I NT (5- < LEN < W* (E)) /2)): K8= 18-LEN <W 
$ C E)) -X7 : PR I NTC* C4) 

448 PRINTLEFT*<AT*,9)SPC<R4#10);CHR* <18) 


■ 

449 PRINTLEFT*(AT*,10)SPC(R4#18);CHR*<18 


);LEFT*<SP*,X7);W*< E) JLEFT* <SP*, X8) 

450 PRINTLEFT* <AT*,11)SPC(R4*18);CHR*(18 
); SP* 


460 P=1 


470 D=1 

488 PRINTLEFT*<FiT*,28)SPC<F);" " 

490 p=p+ri 

495 P0KES0+4,129 : P0KES0+1,30+P : P0KES0+4, 


580 PRI NTLEFT* ( AT*, 28)SPC(P)JCHR*<193) 
510 GETA* 

520 IFA*0""THEN GOTO 550 
530 IFP>38 OR P<1 THEN D=-B:PS*PS-1 
540 GOTO480 
550 : 

560 F0RJ=18TQ123TEP-1 
578 POKESO+1,58-J 

583 PRINTLEFT* <AT*,J)SPC <P > J CHR* <194) 
600 PRINTLEFT*<AT*,J+l)SPC<P)" " 
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610 NEXTJ : POKESQ+1, 0 

614 PRINTLEFT$CAT$,J+l>SPC(P)" " 

620 IFP>=R4*10flND P<=R4#10+9THENGOTO650 
630 POKESO+1,3 : FORDL=1TO1009STEP3:POKESO 
, <BLRNB255> : NEXTDL : F’OKESO+1,0: POKESO.. 0 
640 OOTO730 


650 : 

660 F0RJ=1T019 

670 PRINTLEFT$<AT$, 10>SPC<R4#10>;CHR$a8 
; LEFT $ < SP$, X7 ); CHR$ < 146 ) J 14$ < E ) 

680 POKESO+1.. 5*.J 

700 PRINTLEFT$CflT$,10)SPC<R4#10);CHR$<18 
);LEFTS<SP$,X7>;W$(E> 

710 NEXTJ:P0KES0+1,0 
716 I FF'S< 1 THENPS=1 


720 S < T)=S < T)+PS:PR I NTCHR$ a 44 ) 

722 PRINTLEFTSCATS,16)SPC(11);"SCORE 
POINTS!" 

738 FORB=1TO1000 : NEXTD 
740 PRINTCHR-T(147) 

750 NEXTT 
760 GOTO270 

770 FORDL=1TO190 -NEXTDL 

782 IFS(2)>=100'THEN00T0786 

784 PRINTLEFT $ <PT$,1)SPC <7); P$ (1)j" 

HE WINNER!":GOTO790 

786 PR I NTLEFT$ C flTi, 10 ) SPC c 7) J P$ ( 2 )" 

THE WINNER!" 


"PS 


S T 


790 END 

800 DATA " LONDON."," PAR IS"," ROME" 

810 DATA"CAT","GERBIL","HORSE" 

820 DATA"FORD","BRIDGE","FERRV" 

830 DATA"ROACH","PIKE","HERRING" 

840 DATA"QUARRY","QUIZ","QUARTZ" 

850 DATA "PING"," BANG"," CL ICK." 

860 DATA"DORSET","SUSSEX","SUFFOLK" 
876 DATA"YACHT","DINGHV","SLOOP" 

889 DATA"MINIM","LEVEL","REFER" 

890 DATA"FRANCE","GERMANY","ITALY" 

900 DATA"MAISON","CHIEN","FENETRE" 

A10 DATA"SPECTRUM","DRAGON","ORIC" 

920 DATA"CRICKET","FOOTBALL","TENNIS" 
930 DATA"GEORGE","CHARLES","RICHARD" 
940 DATA"STOUR","TRENT","THAMES" 

950 DATA"DVFED","GWENT","CLWYD" 

968 BATA"CANARY","FINCH","SPARROW" 
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970 BflTfi"BRFiW", "POKE", "PRINT" 

10000 REN SET UP SOUNDS 
10010 50=54272 

10020 FQRT=0TO28:POKESQ+T,8:NEXT 
10048 F’0KES0+5,9 :REM nTTRCK/BECRV 
10850 POKESO+S , 248 : REN SUSTflIN/RELEflSE 
18060 P0KES0+24.< 15 : REN VOLUME 
10078 POKESO+4,33 : REN WAVEFORM 
10088 RETURN 
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Science Quiz 



U HIGH 15 POIS O N OIJ S '? 


1. CY Pi WIDE 



This is a program of multiple choice questions where you are given 
a selection of statements and asked to choose the correct answer. 

If you find these questions too difficult or too easy you can ask your 
parents to provide your computer with some questions of your 
own. We will tell you how at the end of this introduction. 


How to play 

The computer will ask for your name and you type it in and press 
RETURN 

A choice of statements will appear on the screen and you will be 
asked to choose the correct answer. 
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Example: ‘What will you grow if you plant an acorn?’ 

1. An elm tree 

2. Arose 

3. An oak tree 
To answer press 1,2 or 3 

If you are correct the computer will tell you so. 

If you are wrong the computer will tell you ‘That is wrong’. 
Remember that the faster you answer, the more points you score. 
If you are too slow, you will run out of time. 


Programming Hints 

The lines to change for your own questions are 600, to 795. Type in 
the question first, then the correct answer followed by two wrong 
answers. Remember to enclose each item in inverted commas (“ ”) 
as shown on the listing. 


Program 


10 REM $$$$$$$$$$$$$$$$$$$$$$ 

20 REM * * 

22 REM * SCIENCE QUIZ * 

24 REM * % 

25 rem mmwmmmwwmmm 

30 AT$=CHP.$ < 17) : FORT =1T06 : AT$=RT$+AT $ '■ HE 
XTT:flT**CHR$<19)+flT$ 

32 PRINTCHRf(147):GQSUB10000 

35 P0KE5328Q,9:P0KE53281,7:PRINTCHR$<28) 

40 SC=0 

50 QN=0 

60 RS=0 

70 DIMQ$<20> 

80 BIMR$(20,3) 

90 •• 

100 PRINTCHRS U 47)J CHR$ <17);CHR$ <17)" 
WHRT IS YOUR HRME"; : INPIJTNS 
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110 F0RJ=1TQ20 
120 RERDQ*<,T) 

130 F0RK=1T03 
140 RERBR*<J,K) 

150 NEXTK 
160 NEXTJ 

170 PRINTCHR*<147) 

180 PRINTLEFT*<RT*.2)SPC<6)"QUESTIONS: " 
J QN 

190 PRINTLEFT* < RT*, 2)SPC<22)"SCORE = ";SC 
200 R= I NT <RND <1)$20X 
210 IFR=RSTHENGOTO200 
220 RS=R 

230 PRINTLEFT*<AT*,7)SPC <5)Q*<R) 

240 RR<NT<RND< 1) *3 ) + l 

250 RB<NT<RNB<1)*3)+ 1 

268 IFRB=RR THEN G0T0258 

270 RC=INT < END <1)#3) +1 

280 IFRC=Rfi OR RC=RB THENG0T0273 

290 PRINTLEFT*< RT*,10)SPC < 7)"1. ";fl* < R,R 

fl) 

380 PRINTLEFT*<RT*,12)SPC < 7)"2. ";fl*< R,R 

B) 

310 PRINTLEFT* <RT*,14)SPC < 7)"3. ")fl*<R,R 

C) 

320 PRINTLEFT* < RT*,18)SPC <7)"3 PRESS 1, 

2 OR 3, ";N*;" " 

330 QN=QN+1 
340 FORT=1TO1000 
350 GETR* 

360 IFT/180=INT (1/ 108) THEN POKESO+1,20: 
FORBL=1TO40:NEXTDL:POKESO+1,0 
378 IFR*=" 1 "THENT*=fl$<R, P.R) = G0T0448 
380 IFR*="2"THENT*=fl* <R,RB):GOTO440 
390 IFR*="3"THENT*=fl*<R, RC) : G0T0448 
400 NEXTT 

410 POKESO+l,10:FORBL=1TO500:NEXTDL : POKE 
SO+1,0 

420 PRINTLEFT*<RT*,28)SPC<6)"OUT OF TINE 

I" 

430 G0T0523 

440 IFfl*< R,1)=T*THENGOTO480 
450 : 

460 F'R I NTLEFT * < RT*,20)SPC < 9)i"THAT IS UR 
ONG, " j N$ 

470 GOTO520 
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480 : 

490 PRINTLEFT$< Hilt, 20)SPC<14>;"CORRECT!" 
492 SI=10—INT(T/100) 

500 SC=SC+SI 

520 F0RIi= 1 TO 1080: NEHTD 

522 IFQM=20THENGOTO540 

530 GOTO170 

540 PRINTCHR$<147) 

548 = 

550 PRINTLEFT$< Hit, 10)SPC< 4)"VOUR FINflL 
SCORE IS "JSC 
560 : 

580 STOP 

680 DATA "WHICH PLANET IS NEAREST 
THE SUN?" 

605 BATA "MERCURY";"MARS". "VENUS" 

610 BATA"WHAT IS THE COMMON NAME 
FOR SOBIUM CHLORIBE?" 

615 BATH"SALT";"AMMONIA'VSUGAR" 

620 BATA"WHICH WILL FLOAT IN WATER?" 

625 BATA"CORK","IRON","GLASS" 

630 BATA"WHAT WILL GROW IF YOU PLANT 
AH ACORN?" 

635 BATA "AN OAK TREE"/'A ROSE".. "AN ELM T 
REE" 

640 BATA"AT WHAT TEMPERATURE WILL 
WATER FREEZE?" 

645 BATA"0 CENTIGRADE";" 10O CENTIGRADE", 
"-212 CENTIGRABE" 

650 BATA"WHAT IS THE BOILING POINT 
OF WATER?" 

655 BATA "100 CENT IORABE ”," 8 CENT I GRADE".. 
"212 CENTIGRADE" 

660 BATA"WHICH WILL DISSOLVE IN WATER?" 
665 BATA"SUGAR","SAND","WOOD" 

670 BATA"WHICH IS POISONOUS?" 

675 BATA"CYANIBE","GLUCOSE","SUCROSE" 

680 BATA"WHAT DO BUTTERFLIES EAT?" 

685 DATA"NECTAR";"CABBAGES","ALMOST ANVT 
HING" 

690 DATA"IF YOU DROPPED AN IRON BALL AND 
A PEA;WHICH WOULD FALL FASTEST?" 

695 BATA"NEITHER". "THE IRON ERLL" .■ "THE P 
EA" 

700 DATA"HOW MANY LEGS HAS A SPIDER?" 

705 BATA" EIGHT"," FOUR ".."SI X" 
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710 BATA"WHAT WILL VOU GET IF VOU MIX 
BLUE AND VELLOW?" 

715 DATA"GREEN"/'BLUE AND VELLOW STRIPES 
" , "ORANGE" 

720 BATA"WHICH TREES BO CONKERS COME FRO 
M?" 

725 BATA"HORSE CHESTNUT" /'OAK","BEECH" 
730 BATA"HOW FAR WILL A CAR TRAVELLING 
AT 60KM/HR MOVE IN 15 MINUTES?" 
735 BATA"15 KM"/'60 KM"/'30 KM" 

740 BATA"WHICH WILL FEEL HOTTEST IN 
A HOT BRINK?" 

745 BATA"METAL SPOON"/'PLASTIC SPOON"."P 
ENCIL" 

750 BATA"WHICH WILL CONBUCT ELECTRICITY? 

ll 

755 BATA"COPPER","WOOB" /' RUBBER" 

760 BATH"A CYGNET IS A YOUNG ?" 

765 BAT A" SWAN"/' BUCK"/' GOOSE" 

770 BATA"WHICH IS AN ELECTRICAL INSULATO 
R?" 

775 BATA "RUBBER "/'COPPER "/'I RON" 

789 BATA"AN ECLIPSE OF THE SUN IS CAUSES 

it 

785 BATA"THE MOON" /'A THUNBERSTORM"/'A P 
OWER CUT" 

798 BATA"WHICH WILL BE ATTRACTEB BY 
A MAGNET?" 

795 BATA"IRON","COPPER","GOLB" 

10380 REM SET UP SOUNBS 
10013 80=54272 

10020 FORT=0TO28 '• PQKESO+T, 8 : NEXT 
10840 P0KES0+5,9 : REM ATTACK/BECAY 
18050 PGKESO+6,240:REM SUSTAIN/RELERSE 
10868 P0KES0+24j15 : REM VOLUME 
10870 POKESO+4,17 :REM WAVELENGTH 
10080 RETURN 






If your family already owns a Commodore 64 -or if you 
are thinking of buying one-the chances are that it is 
because you have thought about the part computers are 
going to play in your family's future. The programs in this 
book have been designed to help the younger members 
of your family to handle the Commodore and to increase 
their general knowledge-whilst also enjoying 
themselves. 

All of these ideas have been developed with the 
assistance of educationalists and a professional 
programmer. They are intended to give young users 
games which will complement their schooling and also 
give them a head start in using a micro. 

Subjects include languages, geography, mathematics, and 
science. Hints are also provided to show how the contents 
of the programs can be changed to suit the family as their 
skill improves. 


The Author 

Vince Apps is a regular contributor to journals such as 
Popular Computing Weekly and Home Computing Weekly. 
He is a graduate of Sussex University in Computer Science 
and has his own successful software company. 
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